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Preface 


This book is designed for people with a working knowledge of APL who 
would like to increase their fluency in the wide range of extra facilities offered 
by second-generation APL products. Although the primary product in view is 
IBM’s APL2 as implemented on mainframe, PC and RS/6000, the language fea- 
tures covered share considerable common ground with APL*PLUS II and 
Dyalog APL. This is a book about skills rather than knowledge, and an 
acquaintance with some variety of APL on the reader’s part is assumed from 
the start. It is designed to be read as a continuous text, interspersed with exer- 
cises designed to give progressively deeper insight into what the authors conceive 
as the features which have the greatest impact on programming techniques. It 
would also be suitable as a text-book for a second course in APL2, although 
experience suggests that most programming language learning is now by self- 
study, so that this volume is more likely to provide follow-up reading to more 
elementary texts such as “APL2 at a Glance” by Brown, Pakin and Polivka. 
Material is discussed more informally than in a language manual - in this book 
textual bulk is in proportion to difficulty and importance rather than to the 
extent of technical details. Indeed, some APL2 extensions are not covered at all 
where the technicalities pose no great problems in understanding and can be 
readily assimilated from the language manuals. 

Second-generation APL is dominated by two ideas - nested arrays and oper- 
ator extension. Nested arrays are in principle so simple a concept that only a 
few minutes are needed for an experienced APL user to read and absorb their 
technical specifications, and also those of the closely associated functions 
enclose, disclose and depth, and the operator each. Nevertheless the increase in 
expressiveness and potential complexity which these few simple ideas add is 
truly astonishing. 

The first chapter discusses APL2 arrays and functions, grouping the latter 
into broad areas such as structuring, selection and inquiry. Chapter 2 considers 
operators, both primitive and user-defined. Chapter 3 contains demonstrations 
to show how nested arrays deal with simple data structures in a way which 
makes their behavior comprehensible and useful to people with very limited pro- 
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gramming background and experience. Chapters 4-6 then retrace and develop 
the ideas of chapters 1-3. Chapter 4 develops the ideas of chapter 1, but 
focusing more on the way in which functions interact. Chapter 5 develops the 
Chapter 2 discussion of operators in a similar way, and Chapter 6 gives more 
sophisticated examples which use all the powerful features of APL2 which have 
been developed in the previous five chapters. 


Ch. | Ch. 2 
Functions Operators 


Ch. 3 
Applications 


Ch. 4 Ch. 5 
Functions Operators 
Ch. 6 
Applications 


Using APL2 to its full capability is a skill whose acquisition takes time and 
patience which are an order of magnitude greater than the skills needed for a 
mastery of first-generation APLs. The reward, on the other hand, is the stim- 
ulus of a language whose exploration is a source of constant delight through its 
seemingly endless capacity for expressing ideas of indefinite complexity in unam- 
biguous and succinct terms. 

Of the existing APL texts and primers, some were originally first-generation 
APL works upgraded to APL2 by the addition of new sections and appendices. 
Others assume that APL2 is the first language which the user encounters. This 
book is addressed to the thousands of people, some programmers and some not, 
who have achieved both enhancement to their professional skills and personal 
Satisfaction in learning and using APL, and who would like to build on this 
foundation by acquiring a matching fluency in the skills associated with APL2. 

Extra weight is therefore given in the text to those APL2 language features 
which extend user versatility in describing data structures and communicating 
algorithms in ways which mirror current thinking in computing science and soft- 
ware engineering. 

The exercises are designed to give the reader practice in these processes. Fre- 
quently, subtler points of difference are best illustrated by exercises with long 
sequences of similar expressions to be evaluated. With many exercises, a few 
keystrokes on a terminal will deliver the answer, and whilst the reader is encour- 
aged to use a computer as a check, the fullest value of most exercises is obtained 
by predicting the result before having the computer deliver it. All solutions are 
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given in an appendix so that it is possible to use the book as a study guide even 
without the availability of an APL2 system. 

The functions, operators, and much of the data in the text are available on a 
3.5” disk. Either of the authors can supply particulars. 

APL2 has its roots in Ken Iverson’s original concepts of a symbolic notation 
for use with computers. Through the efforts over the years of Jim Brown and his 
team at IBM’s Santa Teresa Laboratory these have matured into a language 
which can be consistently used through the whole range of software develop- 
ment, that is specification, design, coding, and testing. We have attempted to 
penetrate beyond the mere description of the syntax and semantics of the lan- 
guage and provide a study in greater depth of the interaction between nested 
arrays and the various functions and operators. We hope that the present work, 
“APL2 in Depth” will encourage greater use of APL2. 

We should like to acknowledge the thorough and thoughtful review by Curtis 
Jones, without which this text would have been greatly poorer, and also helpful 
comments and suggestions from Garth Foster, Helmut Engelke, Bert 
Rosencrantz, Phil Benkard, and Ron Wilks. We are also greatly indebted to 
Jon McGrew for his invaluable help in the typographical preparation of the text. 


Ray Polivka Norman Thomson 
60 Timberline Drive Finnock House 
Poughkeepsie, New York 12603 Cliff Terrace Rd. 
USA Wemyss Bay 
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Conventions Used for Arrays, Functions, 
Operators and Indentities 


Names of Arrays 


A general principle is that “small” arrays, that is those which require fewer than 
15 non-blank characters to construct them by direct keyboard entry, are given 
either meaningful names, or one-character names, usually S for scalar, v for 
vector, M for matrix, A for array. Larger objects are given either descriptive 
names or a name such as V23 which denotes the third vector defined in Chapter 
2. Objects so named are stored on the disk which is available to accompany the 
book. 


Functions and Operators 


When a word like “pick” is used in its specific role as an APL function or oper- 
ator, it is printed in a heavy font thus: pick. 

The following conventions are used in writing defined functions and opera- 
tors: 


F a function 

Z result of a function or derived function 
L,R left and right arguments of a function 
P,Q left and right operands of an operator 


T,U,V local variables 


Operations which behave identically, or nearly so, but contain different code 
are distinguished by using different combinations of upper and lower case letters 
in their names. 

A subsidiary operation is indicated by the prefix a. 
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Labels and Comments 


Labels are named L1, L2, L3, ... andsoon. 
The general format for a line in an operation (i.e. a function or operator) is: 


Cline-number] Ln: expression a comment 


There are several distinguishable uses for comments, in particular they may 
describe 


(a) constraints on arguments and operands prior to execution; 

(b) description of a result following execution; 

(c) effects on global variables in the workspace; 

(d) clarification in words of a single APL line; 

(e) description of current execution status of data and/or a program. 


Comments are permitted on the header line in many APL2 implementations. 
Where type (a) comments can be expressed sufficiently briefly this usage is 
adopted, otherwise they are given in separate lines at the head of the function. 
Most of the functions in this book are very short, and the emphasis is on trans- 
forming ideas into APL2 program fragments rather than on the development of 
programming systems where type (e) comments are more likely to be found. 
Where these occur in production APL2 code they frequently indicate the possi- 
bility of breaking down a function into subfunctions. 

Labels may be floating, that is a function line may consist of a label and its 
colon only, possibly with a comment. Judicious use of the floating label and 
comment combination can add considerably to legibility, adaptability and main- 
tenance of functions. Floating labels used in this way are another frequent indi- 
cation of suitable points for subdividing a function into subfunctions. 


identities 


The symbol «+ is used to denote “is identically equal to.” 
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1 
Functions and Arrays in APL2 


Compared with first-generation APL, APL2 brought about a vast explosion in 
the amount of data types and structures which can be modelled. This chapter 
Starts with a discussion of data structures in APL2, beginning with nested 
arrays and followed by some notes on complex numbers. There then follows a 
discussion of the principal APL2 primitive functions under the headings of 


Construction 

Selection 

Replacement 
Restructuring 
Comparison and Enquiry 


1.1 Nested Arrays and Depth 


An APL2 array is an object which possesses two properties namely data and 
structure, the latter of which has two measures, namely shape and depth. An 
array may be of any dimension, and scalar, vector and matrix are special names 
describing the special cases of 0, 1 and 2 dimensions respectively. The principal 
feature which distinguishes second-generation APLs is the concept of nested 
arrays of which the following is an example: 


M11¢2 2p‘CHARS' (14) (2 2p°ABCD') 16 


A nested array is an array in which any item may itself be an array, and at least 
one item has rank greater than zero. APL2 arrays are distinguished by two 
characteristics not available in first-generation APL, namely 


1. heterogeneity (mixed data types) 
2. depth (nested arrays) 


DISPLAY is a function which comes in a workspace distributed with the IBM 
products and which reveals the structure of objects with regard to nestedness, 
for example: 
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DISPLAY M11 


| 
2 aun 0 een Be 
| ICHARSI| 11 2 3 4] | 
Jed hd | 
l reo | 
| ¥AB| 16 | 
| ICD] | 
j Ce | 
Le—_—_ 


The depth of M11 is given by 


=M11 
2 


1.e. two is the maximum number of line crossings in DISPLAY M11 required to 
reach the most deeply nested part of the array. The arrows on a DISPLAY box 
indicate separate axes, and so the total number of arrows is the rank of the 
array. 

Every array possesses (a) data, and (b) structure, i.e. shape and depth. Shape 
relates to the data organization at any given level of nesting. Distinction is 
made between an item of an APL2 array, and the contents of the item, a term 
which implies the removal of one level of structure. The contents in general will 
consist of further APL2 arrays which may themselves possess structure, and so 
on in a nested fashion. For example the item of M which occupies the first row 
first column position is a five-item character vector whose contents are the five 
characters *C* ‘H* ‘A* 'R* and 'S*. Evaluation of APL expressions thus 
involves a structure phase which logically precedes evaluation of data values in a 
function phase. 

The depth of an array relates to the nesting of the data items. While shape (p) 
determines the shape and rank of an object, depth (=) indicates the degree of 
nesting within an array. It returns a non-negative integer which defines the 
maximum number of levels of structure to be penetrated in order to get to a 
simple scalar where simple means non-nested. 

Here is a more elaborate example: 
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A<«‘CHARS' 

Be13 

C<+'A'2'B' 

D<«10 

E+2 2p'ABCD' 

F¢2 292 4°'AB' (13) 
V11*¢A BC DEF 5 °'S! 
DISPLAY V11 


rea TT 8 RTF eT 
ICHARS| 11 2 31 IA 2 BI |JOl VABI 
Ll kL CL ICD 


| 
| 
| 
| 
| 
| 
| 
Me) 


The top left corner of a DISPLAY box contains information about rank and 
emptiness thus: 


» and + denote the first and subsequent dimensions respectively; 
e and o denote emptiness, if present, in these dimensions. 


In the case of an empty array, DISPLAY exhibits the non-empty dimensions, 
using the prototype of the array to show all items. The prototype of any array is 
another array which indicates the type and structure of its first item but not its 
data. If an array has no non-zero dimensions, its DISPLAY box nevertheless 
indicates its rank (in the case of a scalar by omitting the box altogether), and 
the contents are either a O indicating numeric, or a blank indicating character. 
The DISPLAY of an empty numeric vector is thus a box containing 0, that of a 
numeric array with shape vector O 4 is a box containing a vector of four zeros, 
and that of an array with shape vector 2 O 4 is a box containing a 2 by 4 
matrix of zeros. The function PROTO below defines prototype, and is discussed 
in more detail in Chapter 4. PROTO also illustrates the style of function display 
which will be followed in this book, that is with no vs, and with the header line 
numbered [0]. 


[0] Z*PROTO R 
C1] Z+*OpoR 


The bottom left corner of a DISPLAY box contains information about type and 
depth according to the following code: 


No symbol character data 
~ scalar blank or character scalar (e.g. final 5 above) 
when non-scalar arrays are present 
~ simple numeric 
+ simple mixed character and numeric 
E nested 
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1.1.1 Complex Numbers 


A further advance with second-generation APLs is the admission of complex 
numbers. In APL2 complex numbers may be expressed either in Cartesian or in 
polar form so (0 + jl) can be represented in two equivalent ways: 


(031)=1D90 


+C returns the complex conjugate of C. |C returns the magnitude (absolute 
value) of C. 

RA+0OJ1xIA combines dimensionally compatible arrays RA and IA, repres- 
enting real and imaginary parts, into a single complex array. 

The circle function o is extended to make it easy to carry out standard math- 
ematical operations with complex numbers thus: 


left argument left argument 
9 Real part Imaginary part 11 
10 Argument Phase 12 
“9 C (i.e. null function) Cj (i.e. CxO51) —11 
~10 conjugate of C (1.e. +C) exp(Cj) ~12 


If C is thought of as a point in the Argand Diagram with O as the origin, 
~100C represents the reflection of OC in the real axis, and ~110C represents its 
anticlockwise rotation by one right angle. 

9 11°.,0C breaks a complex array into real and imaginary parts and its 
shape is 2,pC. 


9 110c¢C also breaks a complex array into real and imaginary parts but the 
result is nested of shape 2. 


0J1x+C exchanges real and imaginary parts. 


illustrations : Complex numbers 


a. The fourth root of j (031) can be obtained in two ways, viz. 


(7™1101)*.25 
0.92388J0.38268 

OJ1*.25 
0.92388J0.38268 


b. The classical equation in mathematics connecting e, m, and j, namely 
exp(z]) =-1, 1s: 

~ 12001 
4 


c. De Moivre’s theorem is illustrated by: 
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THETA¢1203J1 

(~120THETA) *4 a (expj@) to power 4 
0.28J0.96 

~1204xTHETA a exp j40 
0.28J0.96 


d. Find the square root of 
5-j15 
3-j 
and verify the result: 
(5J°1543J°1)%*.5 
2J°1 
(5J°1543J > 1)=2J°1x%2 
1 


1.2 Construction of Arrays 


Vectors are no less useful in APL2 than in first-generation APLs. They may be 
constructed either 


explicitly through a number of functions such as ravel, reshape, catenation 
and enlist; or 


implicitly through vector notation. 


1.2.1 Vector Notation 


The standard syntax for constructing numeric vectors from simple scalars is to 
separate items with spaces thus: 


10 20 30 


It is possible to construct character vectors in the same way: 

‘A’ "RP! 'L! 
as well as in the more common fashion 'APL'. Vector notation allows any item 
to be replaced by a variable name or a parenthesized expression, e.g. 

A B 20 


10 *A® (X=2) 


In the last example the parentheses are essential to achieve the required 
grouping into three terms. Without them the items form two groups, three of 
them in the left argument of = and one in the right. 

Such parenthetical groupings may be nested, for example 
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DISPLAY V12¢«12 (13 (14 15)) (16 17) 


| 
| 
1 13 114 15] | bo——dt | 
| 
| 


(pV12),=V12 


Parentheses in conjunction with vector notation are used as a form of implicit 
enclosure. They are non-redundant if they serve both to group and separate, 
regardless of where they appear in an expression. Vector notation was originally 
called “strand notation,” and the terms are equivalent. 


Illustration : Separating and Grouping 


Consider the following expressions 


(10 20) 

10 (20) 

10 (20) 30 

10 20 ((30 40)) 
10 (f5.6) 30 

10 (20 30) (40 50) 


moog 


In the first three, the parentheses are redundant, in (a) they group but do not 
separate, in (b) and (c) they separate but do not group. In (d) one set of paren- 
theses is redundant - the inner ones group but do not separate, while the outer 
ones separate but do not group. In the non-redundant case (e) the parentheses 
define a subexpression, while in (f) both sets of brackets both group and sepa- 
rate. 

Such distinctions are also indicated in the APL2 default output display by the 
use of indentation to show depth, for example 


10 20 30 
10 20 30 

10(¢20 30) 
10 20 30 


DISPLAY Serves the same function but makes the difference even clearer: 
DISPLAY’ (10 20 30)(10(20 30) ) 


ree e———7>—O—U TTT) 
110 20 30| | | 
Lo | 10 [20 30] | 
| Lv | 
Le——__ 
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Exercises 1a 


1. Sketch the graphic picture which the DISPLAY function would produce for 
the following: 


"ABC’' 17.6 

2 3p2 2 4 

23 4p2 2 4 

2 4p'ABC® "* * * *6'(12)010)9 6 
‘A' 7.5 5 "5!" 

0 305 

3p 'A* 

3p 5 ‘A’ 

Op S ‘A’ 

3e(5 °A')4 
3p('B'6)(5'A') 
Op ('B'6)(5'°A') 

2 Op('B'6)(5'A') 


mao pda mo ao of 
eo0CONWDO 


5 


In each case what is the prototype? 


2. Two empty arrays are displayed below which differ in two details. Use the 
rules for DISPLAY boxes to find APL2 expressions which could have generated 
them. 


| rs | 
l pe sid | pit 
| }O0 Ol | | 0 O| | 
| Lenrmnd | ee 
L~-—______ Le—_—____] 


3. Write a monadic function DIS which on the first line displays the shape and 
depth of its argument thus 


SHAPE: 2 DEPTH: 3 


and on the following lines shows the result of DISPLAYing the argument. This 
function can be used to give the total descriptions of APL2 objects which are the 
subject of exercises 4-6. 


4. a. What are the value, shape and depth of 1(2 3)+(13)4 ? 


b. If A«4 5 Be3 C+'APL', what are the value, shape and depth of 
3ep(A BIC ? 


5. With A and B defined as in qn. 4, what is the difference between 


a. A BxS A and b. AC(BxS)A ? 
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6. (i) If A«2 3p16 and Bé3, all but two of the expressions below are of shape 
two - which are the two? 


a. (At1)A f. (pA) (pB) 

b. A 2 g. ((pA)(pB)) 
c. A 2 -1 h AB 

d. A2~1 1. ‘At *Pp* "Le 
e. AC2(3 4)) j. ‘AP" 'L* 


(ii) All but two are of depth two - which are they? 


7. What can be said about the value of (pA) 1pA where A is any array? If it has 
no value, what type of error is generated and why? 


8. Within each row which expressions are identical for a general array B? 


(i) a. B+i3 b.(B+13) c. ((B+13)) 
(ii) a. B(B+1) (B+2) b. B (B+1) (B+2) Cc. B(B+1)B+2 
(ili) a. B BpS 6 b. B(BpS 6) Cc. (B B)pS 6 


9. a. What fact about complex numbers 1s expressed by the identity 
(Cx+C) > (1C)%2 ? 


b. Write a function QUAD whose argument is the vector of coefficients (not 
necessarily real) of a quadratic equation in descending power order, and whose 
result is a two-item vector of roots. Use QUAD to display the roots as a two- 
column matrix with the real parts in the first column and the imaginary parts in 
the second column. Illustrate by solving x2? + x + 1 = 0. 

Obtain the values of QUAD 1 233 4371. How would you confirm that 
these were indeed the roots? 
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1.2.2 Enlist 


While the primary means of constructing arrays is the shape function, other 
primitive functions allow alternative construction techniques, e.g. enlist and ravel 
with axis. Enlist returns a simple (i.e. non-nested) vector whose items are the 
simple scalars of its argument in order. It thus removes all nested depth - analo- 
gous to the way in which ravel reduces dimensionality for simple arrays. 


V¥12«€12(13(14 15))(16 17) 
€V12 
12 13 14 15 16 17 


1.2.3 Ravel with Axis 


In APL2 ravel is extended to allow qualification with axes. The qualifier must 
be simple and, assuming OIO=1, may be any of 


(a) a positive integer scalar in the range | to the rank of the argument; 
(b) a vector of consecutive integers from this range; 

(c) a positive fraction not exceeding one more than the argument rank; 
(d) 10. 


Case (a) means do nothing, that is A=, (NJA for any valid integer N. 
For case (b), »£L1ppA] is equivalent to ravel without axes, so for a three- 
dimensional array, there are two meaningful cases as illustrated below: 


A11 
SPARE 
A 
DIME 


NO 
THANK 
YOU 
pA11 
23 5 


eO«,£1 2)A11 
SPARE 
A 
DIME 
NO 
THANK 
YOU 
6 5 
p+«,(2 3]A11 
SPAREA DIME 
NO THANKYOU 
2 15 


The effect on the shape vector is to merge a consecutive pair of items by multi- 
plication. 
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Case (c) is similar to laminate in that a new axis is inserted whose contribution 
to the shape vector is 1 (with laminate the contribution is 2). In the case of a 
3-dimensional array there are four possibilities the first three of which are 


DISPLAY,({.1JA11 a dimension vector = 123 5 
2 
¥¥VSPARE | 
LIIA | 
|| 1DIME | 


DISPLAY,({1.1]JA11 a dimension vector = 2 13 5 


ss 
+¥+VSPARE | 


DISPLAY,({2.1]JA11 a dimension vector = 2 3 1 5 
rrr 
++V¥SPARE | 
Pil | 
A 


Oo 
H 
= 
4 


: 
A 


K 
Oo 
CG 


I | 
I | 
I | 
lI 
lI 
LI 
I | 
I | 
I | 
I | 
L 


L 


| 


The fourth possibility of case (c), namely ,[3.11]A11 has the same effect as 
case (d), that is if the qualifier is 10 a 1 is catenated to the end of the shape 
vector and the array restructured. In the particular case of vectors the result is 
a column matrix of shape (pV),1. This is a convenient way of converting a row 
vector into a one-column matrix, e.g. 
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»C10JE€V12<12°13014 15))(16 17) 
12 
13 
14 
15 
16 
17 


1.2.4 Default Display of Arrays 


The default output routines for mixed character and numeric data use rules that 
guarantee a pleasing and intelligible display in the great majority of cases. In 
brief, numeric items in columns have decimal points aligned and columns are 
right justified unless they contain only character data in which case they are left 
justified. The combination of vector notation and these rules makes the writing 
of ad hoc reports a great deal easier as the following illustration shows. 


Illustration : Writing Reports 


ROWS<¢'FRANCE' 'GERMANY' 'SPAIN' 
COLS<«'' "JAN' ‘FEB’ ‘MAR’ 
SALES¢3 3952.3 12.95 34 15.3 9.5 12.25 20 35.5 39 


COLS,({1]ROWS, SALES 
JAN FEB MAR 
FRANCE 52.3 12.95 34 
GERMANY 15.3 9.5 12.25 
SPAIN 20 35.5 39 


1.2.5 Enclose and Disclose 


Array structure can be created, removed and altered using the functions 


enclose(c) 

enclose with axis(¢[1I1J), 
disclose(>), 

disclose with axis(>{1I1]) 


While vector notation imparts structure to the vector it creates, the enclose 
function (¢) is necessary to establish a bounding structural layer around any 
object other than a simple scalar. The result of enclosure is always a scalar. For 
example 

3 4pc'APL2' 
APL2 APL2 APL2 APL2 


APL2 APL2 APL2 APL2 
APL2 APL2 APL2 APL2 
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creates a matrix each item of which is the scalar produced by enclosing ‘APL2°. 
The vector v12 of Section 1.2.1 could equally have been created by explicit 
use of the enclose function, viz. 


V12<12,(¢€13,¢14 15),616 17 


(9V12) (=V12) 


For simple scalars only it is true that 
S is equivalent to c¢S 


Thus repeated enclosure of a simple (i.e. non-nested) scalar has no effect on it. 
It is like a cork on water - however hard it is hit, it continues to float. This can 
be used as a test for simple scalars, and IBM APL2s are sometimes referred to 
as “floating systems” as opposed to “grounded” systems. 

Disclose is the monadic form of >. It reduces depth throughout an entire 
object. It removes one layer of nesting (assuming at least one exists) and there- 
fore acts as an inverse to c: 


DISPLAY 2>¢(1 2)(3 4) 


Disclose is valid only for arrays whose items at the top level have the same rank, 
although they do not require to have the same shape. When they do, disclose 
brings a shape component from the internal structure to the outer structure: 


e(1 2 3)"APL' 


2 

2(1 2 3)'APL' 
12 3 
AP L 

p>2(1 2 3)°APL’ 
23 


If objects at the topmost level do not have the same shape padding is necessary 
to preserve rectangularity: 


2(1 2)3"°APL' 


120 
3 00 
APL 
V12412,(¢613,¢14 15),¢616 17 
2V12 
12 ‘@] 
13 14 15 


16 17 


1. Functions and Arrays in APL2 13 


Exercises 1b 


1. This exercise tests understanding of the floating scalar rule, that is that 
S<-+cS for scalar S. 


(i) Are there any differences between the following six phrases when A, B and 
C are all numeric scalars? 


a. A,B,C d. ((A)(B)(C)) 
b. ABC e. (¢A)(¢B)(cC) 
Cc. (A) (B)(C) f. (eA), (¢B),(cC) 


(ii) Repeat the above assuming A, B and C are all two-item vectors, e.g. 
A«1 2 B«+10 20 C3 4 


2.If Eis (2 29'X')77(15) what is the difference between 
a E,4 5 and b. E,c4 5 ? 


3. If Fis (2 3p16)3, evaluate 


a.F d. 10xF 
b. -F e.1 2 3xcF 
C.1 2+F f. FxF 


4. Create a 2 by 3 matrix which displays as 


APL2 APL2 APL2 
IS Is IS 
GREAT GREAT GREAT 


APL2 APL2 APL2 
IS Is Is 
GREAT GREAT GREAT 


5. Suppose Z«'' and X13. Describe in detail (that is by giving value, shape 
and depth) the values of Z after each step in the following two sequences (a) and 


(b) 


a. Z«Z,cX b. ZZ X 
Z+Z,cX Z+Z X 


Which if any of your four answers are the same ? 


6. Distinguish carefully between 


a. i > a b. en eye 
C. ee lege d. P'(c'X') 


Which, if any, of these four expressions are identical? 


7. If Ze** and X«13 what are 
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a 2Z,¢X b. 22 X 
Cc. 2Z,¢c'xX' d. 22 'x!? 


8. What are the differences between 


a.,"ABC' 'DE* and e€'ABC' 'DE' 
b. »(1 3p"ABC')"DE* and €(1 3p'ABC')'DE' ? 


9. Calendar construction 

a. Write a function MONTH which constructs a calendar for a month given the 
day of the week of day 1 as an integer from 0 to 6 (Sunday is 0,...Saturday is 6) 
together with the number of days in the month. Head each column with the 
appropriate three character title "SUN*' ‘MON'...'‘SAT'. For example 


3 MONTH 30 
SUN MON TUE WED THU FRI SAT 
1 2 3 4 
5 6 7 8 9 10 11 
12 13 14 15 16 17 #418 
19 20 21 22 23 24 25 
26 27 28 29 30 


b. How would you change the calendar so as to display the weeks vertically? 


c. How would you convert the calendar mixed data type array into one of all 
characters, e.g. for transmission as an ASCII file? 


d. Assume that a twelve item global vector DAYS contains the number of days 
in each month in a non-leap year. Write a function START_DAY which takes as 
its left argument a Boolean value LEAP, as its right argument the day of the 
week of 1 Jan (as an integer), and returns the twelve item vector SD of integers 
representing the start day of the week for each month. 


e. Use SD and DAYS to produce the calendar for the entire year. Shape it to 
appear by quarter, i.e. the first three months appear as the first row, etc. 


1. Functions and Arrays in APL2 15 


1.2.5.1 Partial Enclose and Disclose 


Formally partial enclose and disclose are known as enclose and disclose with 
axis. When an array is enclosed, it becomes a scalar, that is an extra layer of 
structure is added. Sometimes encapsulating the whole array as a scalar is not 
what is required, but rather enclosure along one or more of its dimensions. For 
example, given a simple matrix of names, it is useful to be able to create a vector 
of name vectors. Enclose with axis, «[I1]A, accomplishes this, e.g. 


M12¢«3 Sp"JOHN TED JASON' 


M12 
JOHN 
TED 
JASON 

¢{f2]M12 


JOHN TED JASON 


Consider next some examples with numeric arrays: 


M¢2 39016 
oM 


c{1]M a converts matrix into vector of column vectors 
14 25 3 6 
ecf1]M 


c{2]M a converts matrix into vector of row vectors 
123 45 6 
ec{2]M 
2 


In the next example the planes of the array A3 become two nested items: 
A+2 3 4p124 


oA 
23 4 

ec(3]A 
2 3 

c{C3]A 


1 2 3 4 5 6 7 8 9 10 11 12 
13 14 15 16 17 18 19 20 21 22 23 24 


The axis specification is not restricted to a single axis: 
ec{2 3]A 


c{2 3]A 
12 3 4 13 14 15 16 
5 6 7 8 17 18 19 20 
9101112 21 22 23 24 


The rule is that the axes which are specified are those which become nested and 
thus the following identity holds: 
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cCippAJA «> cA 
Also the empty vector is acceptable as an axis specification, however it causes 
no enclosure: 
A «> cCiOJA 
Disclose with axis has the reverse effect to enclose. With disclose the shape of 


the item nested at the top level of the structure become the last dimension of the 
disclosed array. Start by defining v as a vector of columns of M: 


Vec([1JM¢2 3916 


V 
14 25 3 6 
eV 
3 
2V a make a vector of vectors into a matrix 
1 4 
25 
3 6 
pV 
3 2 


Disclose with Axis, >[IJA, allows the shape of the nested items to be placed in 
dimensions other than the last of the newly disclosed array. The axis specified 
describes where the nested dimensions will be in the disclosed array. For 
example in making a vector of vectors into a matrix the inner-structure shape 
vector can be placed either after the existing item as in the case above, or before 
it as in 

2C1]V 


e2[1]V 
2 3 


The next example shows what happens when the axis qualifier is a vector: 
M¢3 4p112 
MM*«M (-M) 
(opMM) (=MM) 
p >MM 
e>2[1 2]MM 


ep>[1 3]MM 
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>[1 3]MM 

1 2 3 4 
“1 "2 "3 “4 
5 6 7 8 
“5 “6 "7 “8 
9 10 11 12 
~9 ~10 ~11 ~12 


Disclosure is not possible unless all of the items one level down are of the same 
rank. If however the items do not have the same shape padding takes place as 
in 


2[01](1 2903 4 5) 


1 
2 
0) 


wm WwW 


The number of integers specified as axes must match the rank of the items, thus 
the following identity holds: 


(p,I) = pptaA 


In each case the shape vector item or items indexed by the axis goes into the 
inner structure, and the depth of the result is two. 


1.2.5.2 Relationship between Partial Enclosure and Axis 
Qualifiers 


An axis qualifier applied to a scalar dyadic function 1s equivalent to a combina- 
tion of enclosure and disclosure along the complementary axes: 


M2 3916 
M 
12 3 
4 5 6 
¢c{1]M 
14 25 3 6 
10 20 30+c[1]M 
1114 22 25 33 36 
2>[€1J]10 20 30+c[1]M 
11 22 33 
14 25 36 
10 20 30+[2]M 
11 22 33 
14 25 36 


These ideas extend in a natural way to arrays as the following exercise shows. 
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Exercises 1c 


1. a. Defining M¢2 418 write an expression which transforms M into a three- 
dimensional array each plane of which is a three-times repetition of a row of M, 
1.€. 

3 


3 
3 


= 
NN N 
FLL 


5 67 8 
567 8 
567 8 


b. Defining v«13 write an expression which transforms V into a three- 
dimensional array with two planes and four columns each column of which is V, 
1.¢. 

111 1 
2 
3 


N 
N 
N 


—_ 


111 
2 
3 


N 
N 


3 3 


2. If M13 and A12 are defined as follows: 


M13¢3 4p *ABCDEFGHIJKLIM' 
A12«2 3 4p’ ABCDEFGHIJKLMNOPQRSTUVWX'° 


what are value, shape and depth for each of the following : 


a. ¢M13 j. ¢f1JA12 

b. 2M13 k. e¢f{1 2]A12 
Cc. 2¢M13 l e¢{1 3]A12 
d. ¢>M13 m. ¢[{3 1]A12 
e. ¢[1]M13 n. c¢c({2 3)A12 
f. ¢[2]M13 o. ¢[{3 2]A12 
g. ¢[1 2]M13 p. ¢f{13]A12 

h. «(2 1]M13 q. ¢f{2 1 3]A12 
1 ¢[10]M13 
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1.2.6 Partition 


Partition is another form of enclosure. Enclose (<A) forms a scalar of an entire 
array A. Enclose with axis (¢[ 1A) forms a set of items by enclosing along spec- 
ified axes. Partition (V<A) and partition with axis (V¢[1IJA) permit grouping into 
separate items portions of data along a specific axis where the left argument of 
partition determines the nature of the enclosure and the axis specification deter- 
mines the axis along which the partition is to occur. 

As an example the following line constructs a three-item vector from a simple 
numeric vector. 


DISPLAY 1 2 2 2 3 3c12 13 14 15 16 17 
| 
in een ee ees 0 nero 
f 1721 113 14 15] 116 17] | 
Pe eee De en DO 


be 


The left argument must be a sequence of non-decreasing non-negative integers, 
jumps in which correspond to the start of a new partition. In addition zeros 
may be inserted anywhere to denote that the corresponding items in the right 
argument are omitted in the result. 


DISPLAY 1 0 0 O 3 312 13 14 15 16 17 
Pt 
Irs re i! 
| {121 116 171 | 
p WI lL | 


The non-zero items in the left argument do not need to be consecutive, e.g. 


113 3 7 7¢*ABCDEF'* 
AB CD EF 


A partition may have an axis qualifier, so a 5x6 matrix can be made into a 3x6 
matrix of vectors by e.g. 


DISPLAY 1 1 3 3 7¢{1]5 6p°ABCDEF'* 


geen Oe sagen We mages Oe ge Od gee eee 
[AA!| IBBI| ICC{ [DD!| [EE]! [FFI | 
Lob bs Lo Le Ly 
ra res aes ese |! 
[AA| IBB| ICC] IDD] IEE! IFFI | 
LJ Li Led | 

| 

| 

| 


+ 
| 
| 
| 
| 
po Le Ly 
| 
| 
| 
L 


¢——$ $$ 


In this case partition with axis reduces the number of rows. Partition along the 
last axis of a matrix gives a matrix of vectors with a reduced number of 
columns: 
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113 3 7 ¢{2]6 5p‘ABCDE' 
AB CD 
AB CD 
AB CD 
AB CD 
AB CD 
AB CD 


FE) le) Pl 7 


As usual, if no axis qualifier is present, the default is the last axis. In all cases 
the shape of the left argument must match the dimension along which the parti- 
tion is to occur. 


113 3 7¢2 3 Sp'ABCDE' 
AB CD 
AB CD 
AB CD 


[1 Fl 


AB CD E 
AB CD E 
AB CD E 


In the next example, the effect of two successive partitions is to reduce a 2x6x5 
array to a 2x4x3 array of vectors: 


1223 3 4«{2]1 13 3 7¢2 6 Sp'ABCDE' 


AB CD E 
AB AB CD CD EE 
AB AB CD CD E E 
AB CD E 
AB CD E 
AB AB CD CD EE 
AB AB CD CD E E 
AB CD E 


Partition applies in the same way to numeric right arguments: 


1 2 2¢€1]3 59115 
1 2 3 4 5 
611712 813 9 14 10 15 


Items in the left argument must be non-negative, otherwise a DOMAIN ERROR 
occurs. As with the vector case above items corresponding to 0 are not carried 
into the result, e.g. 


O 2 2¢{1]3 5p115 
611712 813 9 14 10 15 
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Illustration : Grouping like items 


VcV on an ordered vector Vv creates a vector of vectors each containing identical 
items: 


ve111335555 

DISPLAY VcV 
ec 
Ot heen 0 geen 1 ieee 
1111441 13 31 1555 5] | 
| nl Ld Lv 


Le——___——— 


Illustration : Stem and Leaf Plot 


Partition provides the foundations of a “stem and leaf” plot, i.e. a pseudo bar 
chart in which the stems correspond to a range of values and the leaves on each 
Stem are the (possibly rounded) numbers which fall into the corresponding 
range. Here is an example: 
R#?10p40 
R 
21 34 23 22 27 1163 17 
»C10](— .1xR) cR«R[AR] 
123 3 
16 17 
21 22 27 
34 


1.3 Selection 


The functions pick, first, index and without provide a variety of means of 
selecting items from arrays. 


1.3.1 Pick and Path 


The function pick reduces or “penetrates” depth in the sense of going through 
the levels of structure shown by the DISPLAY of an array. 
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V¥12<12(13014 15))(16 17) 
DISPLAY V12 


| | 
| 12 | re— | 116 171 | 
| 1 13 174 15] | bo | 
| | Lv———J | | 
| L¢——________| | 
Le $$$ 
12V12 
12 
22V12 
13 14 15 


Pick is like indexing with penetration, that is depth reduction, and so faulty 
arguments result in INDEX ERRORS. 
A simple scalar is the only object whose depth is zero. 


(=12V12) (222V12) (=32V12) 
021 


The left argument of pick is a “path” through a nested array. Items in a path 
should be read from left to right to correspond to penetration of the levels of 
structure of the object from the outside working in. 


2>2V12 
13. 14 15 

2 2>V12 
14 15 

2 2 1>Vv12 
14 


The left argument of pick may be a nested vector of depth not more than two, 
and further the shape of any item in the path must be equal to the rank of the 
array at that level. For matrices a nested item in a path is a vector of co- 
ordinates in an array, e.g. with M as defined at the start of the chapter: 


DISPLAY M11 


rs 
ee re i! 
| ICHARS| 11 2 3 4| | 
| ee Ss [een | 
l reo | 
| vAB| 16 | 
| ICD | 
j Cr | 
a | 


the following are legitimate paths: 


(2 1301 2)5M11 
B 

(1 2)325M11 
3 
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An empty vector in the path is necessary to penetrate a scalar level, e.g. with 
V«' ABC’ (c13) 


DISPLAY V 


the second item is doubly enclosed so 2 3>V is a RANK ERROR. In order to 
reach the 3 it is necessary to use 


2(010)32V 
3 


An empty vector used in this way can be thought of as a “level-breaker.” In 
general it is not wise to mix vector notation and explicit enclosure in the same 
Statement since an extra level of nesting may inadvertently be created. 


1.3.2 First 


First (+) is the monadic function which uses the same symbol as take but its 
Semantics are quite different. First penetrates the first level of structure and 
produces the first item there, as opposed to indexing which does not penetrate. 
(This topic is covered in more detail in Chapter 4). 


V¥12<12(13014 15))(16 17) 


4V12 
12 
4OV12 
16 17 
(0V12)01] 
16 17 


DISPLAY (*6V12) ((0V12)[1]) 


| 
| 
16 17/1 | | 
| 
| 


M¢2 31716 
MM<«M (-M) 
4M 


+MM 


wm N 
oO WwW 
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If there is no item of V within the outermost level of structure, a so-called fill 
item is returned. This is basically a non-empty substitute item for an empty 
array with zeros where the type is numeric and blanks where the type is char- 
acter. 


DISPLAY *0Op(5 ‘A’)(*BCD’ 6) 


DISPLAY *tOpc(5S ‘A*)("BC*® 6) 


This topic is covered in greater depth in Section 4.3. 


1.3.3 Indexing 


Two forms of indexing are available in APL2, bracket indexing and scatter 
indexing. The latter is sometimes informally known as “squad” indexing because 
of the shape of the symbol (squashed quad). With nested objects the principal 
difference between pick and indexing is that the former reduces depth 


V¥12<12(013(014 15))(16 17) 
2>V12 
13 14 15 
=22V12 
2 


whereas the latter does not. 


20V12 
13 14 15 
=20V12 

3 


The quantities v12(2] and 20V12 are identical, and both are equivalent to 
¢2>V which suggests that <> and [] can be thought of as pre- and post- 
brackets respectively. In structure terms indexing cross-sections arrays whereas 
pick selects items or subarrays from arrays. 

For all simple vectors v it follows from the floating scalar rule that v£1] and 
1>V are identical, that is there is no need to distinguish an item and the cell 
containing it. With nested arrays however this distinction becomes one of crucial 
importance. 
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1.3.3.1 Scatter Indexing 


This is a versatile facility which nevertheless requires some care in its handling. 
A basic requirement is that the shape of the left argument is equal to the rank 
of the right argument as in the following example: 


A¢3 4p112 
A 

1 2 3 4 

5 6 7 8 

9 10 11 12 
3 20A 


The left argument may be nested so that a 2 by 2 cross-section of A can be 
defined by e.g. 


(3 2)(2 3)0A 
10 11 
6 7 


The name “scatter indexing” derives from the fact that it is possible to consider 
the items of an argument such aS (3 2)(2 3) as individual indices, and 
thereby select items one by one using the each operator. Although the discussion 
of operators is the subject of the next chapter, the importance of this case to the 
index function demands its mention here. An example of scatter indexing is 


(3 2)(2 3)0°CA 
10 7 


Whereas the left argument of pick may be indefinitely nested, the depth of the 
left argument of index may not exceed two. Also it is not possible with either 


form of indexing to penetrate nested arrays using a single application of the 
index function, for example: 


M11«2 2p"°CHARS'(14)(2 2p"ABCD') 16 
DISPLAY M11 


r 
| |CHARS!| [1 2 3 GI 
ee ee ee 
| 
| 
| 
| 


| 
| 
| 
res | 
| 
| 
| 


VAB | 16 
|CD| 
LJ 
be $$ $$ $$ ______ 
1 10M11 
CHARS 


=1 190M11 
2 


Consider the following attempts to extract the character H from the matrix M11: 
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201 10M11 
RANK ERROR 

201 10M11 

AA 

20>1 10M11 
H 


These show that repeated applications of indexing alone are not sufficient to 
extract a nested item. The cause of this apparent dilemma stems from the shape 
of the result of indexing. Informally the rule is 


the shape of the result is the catenation of the shapes of the indices. 


Formally for a rank two array M and valid I and J with either form of indexing, 
if 


R1«MCI3J] 
R2«(I J)OM 


then the shapes of the results are 


pR1 «> (pI) ,(pJ) 

pR2 «> (pI),(pJ) 
The following phrase selects two copies of the first row of M11, and then the 
second item within each of these: 


((1 1)2)0M11 
1234 123 4 


With the shape rule in mind, observe the difference between 
DISPLAY ((1 1)2)0M11 
| 


r” r 
1123 41 1123 41 | 
Lot LV | 


The shape of the result of indexing can also be stated in a rank independent 
fashion. If Re(I J K)QA then 


pR «> 2,/p°I J K 


Another rule concerning 0 is 
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the shape of the index must equal the rank of the array, 


or more exactly, for valid IQA 
(p,I) +> epA . 
Scatter indexing is related to bracket indexing by identities such as the fol- 
lowing: 
I0V +> VCII 
(I JJOM <«> MEI3J] 


Indexing is highly sensitive to depth and great care must be taken to distinguish 
situations such as the following: 


(((,I),(0,J3)0M) = MCL,I3,J7] 


(((C,I) (€,J)0M) = MC,.1I3,J7] 


1.3.3.2 Indexing with Axes 


Axis qualification may be applied to 0. The axes not included in the axis spec- 
ification take on all possible values. Thus the second row of M11 in the previous 
section is 


20011M11 


AB 16 
CD 


and the second column is 


20021M11 
1234 16 


The first item in the second row can be found in either of two ways: 


102001)]M11 
AB 
CD 


or more simply 


2 10M11 
AB 
CD 


The latter exemplifies the index rule given in the previous section. Since 0 iden- 
tifies items and not their contents it is not possible to reach the character 'B* in 
the matrix by indexing alone. In order to penetrate depth a depth-reducing 
function such as disclose or pick must be used, e.g. 
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1 2022 10M11 
B 

((€2 1901 2))30M11 
B 


The axis qualifier may be a vector of integers corresponding to axes. If M is 
extended to three dimensions: 


DISPLAY M<«M11,(.5]&M11 


| 
| 


vy r> 
| CHARS | 1123 4| 
L___J Le eee 
ren 
Vv AB | 16 
|CD | 
Lf 


re--"™" ree 
| CHARS | VAB | 


L_____—! ICD | 
LJ 

r> 

1123 41 16 

| 


ree Ps Ss En ss = es 
re='- OCD: s- - OSC = = 2C- o- - 2c 


the following are valid index expressions: 


2 1001 33M _ a 2nd plane, Ist column over all rows 
CHARS 1 2 3 4 


2 1003 2]M a 2nd column, Ist row over all planes 
12 3 4 AB 
CD 


The following table of pairs of equivalent expressions should further clarify 
the comparison of bracket indexing with 0 indexing. 


$<25 
V+" ABCDEFGH' 
M¢3 4p112 
(10)9S Ss 
30V VC3] 
(<3 1 2)0V VC£=3 1 2) 
2 10M M[231] 
(2 19(3 4) 0M M[(2 133 4] 
(2 1) 3 QM M[2 133] 
10011M M[13] 
1002]M M[31] 
(c2 1)0C01]M M(C2 13] 


(c2 1)90C2]M M[C32 1] 


1. Functions and Arrays in APL2 29 


1.3.4 Index of 


The indexing functions applied to a vector take an index and select the matching 
data item. Index of does the opposite in the sense that it takes a data item and 
returns the index. If the data item is not found within the vector an integer one 
greater than the length of the vector is returned, and if the data item appears 
several times within the vector, the value returned is the index of the first occur- 
rence in the vector. 

The left argument of dyadic 1 can be thought of as an alphabet in which the 
items of the right argument have to be sought. If the items to be sought are 
non-scalar care has to be taken to ensure that they are suitably enclosed. The 
example below illustrates the distinction between seeking the character string 
"CHARS' and seeking the five individual characters 'C','H','A','R','S'. 

(,M11)1¢*°CHARS‘* 
1 


(,M11)1'CHARS' 
§ 5555 


illustration : Character to Numeric Conversion 


Character data can be mapped into arbitrary numeric equivalents by defining a 
left argument for index of, thereby providing an elementary coding scheme. 


ALP<‘ABCDEFGHIJK' 
ALP. ‘HAD’ 
81 4 
"KJIHGFEDCBA'1‘HAD' 
4 11 8 


Exercises 1d 


l. If E is (2 3916)3'APL' give value, shape and depth for each of the fol- 
lowing (some of the expressions may return errors): 


a. E f. 12E k. EC1] 

b. +E g. 1 23E l. EC1 2] 

C. 4E h. (¢1 2)39E m. Efc1 2] 

d. cE 1 (c1 2)31>3E n. (CEC1 2))€1] 
€. 2E ] acE Oo 19¢(¢1 2)0E 


2. If We*ABC' ‘DEFG' what are 


a. Wi'ABC' e. Wic'Xy' 

b. Wic'ABC' f. Wi'XY* ‘ABC’ 

C. Wi'DEFG' g. Wic'XY' ‘ABC! 

d. Wi'xXy' h. WiCe'XyY')(c"ABC') ? 
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3. a. With 


M11«2 2p ‘CHARS’ (14) (2 2p‘ABCD') 16 
Ke,2 
L¢,1 

determine which of the following expressions match 2 10M11: 


Il. (€2,1)0M11 
2. KL M11 
3. (K,L)0M11 


b. What is the shape of each expression? 


4. a. Which of the following expressions does not produce a RANK ERROR? 
1. 20M11 

1 20M11. 

- 11 20M11 

- 1 (1 2)90M11 

. (151 2)0M11 

. (1,01 2)9)90M11 


. €1,15,2)0M11 


TFT NY KH wD Bh WwW ND 


Why is a RANK ERROR produced in the remaining cases? 


5. With M*3 4p112 determine the value and shape of the following 
expressions: 


a. 2001 ]M 
b. 200£2]M 
c (€e¢2 1)90£1]M 
d. (¢2 1)0€2]M 


6. Given A«3 4 5p160 write expressions involving 0 to 


a. extract the second plane; 

b. extract the third column from each plane; 

c. extract the third column from the second plane; 

d. extract the item in the fourth row, third column, and second plane. 


7. a. Use partition to divide a sentence, e.g. ‘SPARE ME A DIME’, into a vector 
of words. 


b. Use partition to convert a character name matrix M (i.e. a matrix in which 
each row is a name, and the shorter names are padded on the right with blanks) 
into a vector of names, each with no trailing blanks. 


c. Give an expression which converts a vector such as 
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VO 05000110072 0 16 2 0 


intoo0 055 5 5 11 11 11 ~2 “2 16 2 2 , that is O is interpreted as 
“repeat the last non-zero integer.” 


8. Write a function ORDINAL which will accept a positive integer and return the 
character string consisting of the integer followed by the appropriate ordinal 
representation. For example: 


ORDINAL 3 
3rd 

ORDINAL 21 
21st 
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1.3.5 Without 


The function without (V~A) provides another way of selecting data from a 
vector, this time by discarding unwanted items. For example: 


*HELLO‘’~‘AEIOU' 
HLL 


Without returns all items of the vector (or scalar) left argument V which are not 
in the right argument A. The result is always a vector. 


Te'Atn*B? 
T 
A 
DISPLAY T 
rm 
[Al 
LJ 
DISPLAY ‘A‘~‘A‘ 
| 
Lj 
="A* 
0 


Special attention must be paid to nested arrays since without in its comparisons 
takes into consideration both the shape and structure of items. For example: 


K«'A' ‘BC! 
DISPLAY K~'A' 
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L«(,*A') "BC! 
DISPLAY L~'A' 
> 
rsa ren si! 
| |All IBCI | 
; LI Leo | 
Le——____ 
DISPLAY L~c,'A' 


DISPLAY L~'DE' 'A' 
> 
lore si! 
| [Al [BCI | 
; Ly Lio | 
Le——___ 


Ht 'A'’(c'BC') 
DISPLAY H~‘BC’ ‘DE’ 


DISPLAY H~(c'BC') ‘'DE' 


DISPLAY H~cc'BC' 
rr 
[A| 
Lo 


In summary, the items of the right argument of the function without must reflect 
the same structure (that is shape and depth) as the left argument if they are to 
be discarded in the result. 
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Illustration : Deleting blanks 


v~* * deletes all blanks in a single string. 


Illustration : Intersection of data items 


The items common to two vectors are obtained by two successive applications of 
without, e.g. 


A«* PICTURE’ 
B¢*AEIOU’ 
A~B 

PCTR 
A~A~B 

IUE 


1.4 Replacement 


Bracket indexing is the simplest means of replacing parts of APL arrays, but is 
restrictive in that it is only rectangular subarrays which can be updated. Selec- 
tive assignment allows much greater generality in updating parts of arrays. 


1.4.1 Vector Assignment 


Vector assignment allows the decomposition of the assignment target into com- 
ponents each of which can be assigned individually. The general structure of 
expressions using selective assignment is 


(list of names) <« value(s) 


For example: 
(A B)€(3 3919) 0° XYZ") 


3 
6 
9 


ae 
WDouwn Pp 


XYZ 
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1.4.2 Selective Assignment 


One form of selective assignment has always been present in APL namely 
assignment by index: 


M3 3919 
M[C2;2 3]<«100 
M 

1 2 3 

4 100 100 

7 8 9 


The ability to assign to just part of an array is greatly extended in APL2. The 
general structure of expressions using selective assignment is 


(selective expression) < value(s) 


The replacement takes place in two steps. The first step selects the items to be 
replaced and the second does the actual replacement. For example if M is a 
matrix 1 1M selects the leading diagonal because the left argument of & asks 
for matching indices along both dimensions of M. 


M«3 3p19 
(1 1&8M)<100 
M 
100 2 3 
4 100 6 
7 8 100 


illustration : Passing Multiple Arguments 


Vector assignment permits the passing of multiple (possibly heterogeneous) argu- 
ments as in the opening portion of the following function: 


[0] Z<« FN NDP;NAME; DEPT; PHONE 
[1] aNDP: _ three item vector 

[2] aNAME: employee name 

[3] ADEPT: dept name 

[4] aPHONE: phone number 

C5] (NAME DEPT PHONE) <NDP 


The following is a table of functions allowed in selective assignment: 
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€ enlist monadic only 
4 first /take monadic and dyadic with/without axes 
+ drop with/without axes 

oe __ reverse/rotate monadic and dyadic with/without axes 
, ravel monadic with/without axes 

C] bracket indexing as in first-generation APL 
0 index dyadic with/without axes 
) transpose monadic and dyadic 
> pick dyadic only 
p reshape dyadic only 

J #r* derived functions with/without axes 


Some derived functions using the operator each are also allowed in selective 
assignment. | 

The nature of the selective expression can be wide ranging. Suppose V is a 
vector of vectors nested to an indefinite depth, e.g. 


V¥12€(12,013(014 15))(16 17) 


and assume that a dyadic function PATH has been written which returns the 
path in the vector right argument R which leads to the first occurrence of the 
scalar left argument L, e.g. 


14 PATH V12 
22 1 


The single item 14 in V12 may have its value changed by selective assignment 
thus 


((14 PATH V12)53V12)«20 
V12 
12 13 20 15 16 17 


The discussion of how to write PATH as the inverse of pick is deferred until 
Section 5.4. 


Illustration : Selective Assignment in Functions 


Finding a path to an item in a vector of vectors and simultaneously changing it 
can be achieved by 


CO] Z*L CHANGE R 

C1] a Find item L[1] in R and change it to L[2] 
C2] ((LC1]JPATH R)°R)<LE2] 

C3] Z*R 


14 20 CHANGE V12 
12 13 20 15 16 17 


A variation which enables the two operations of finding and replacement to be 
performed in the same line 1s: 
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CO] Z«L Change R 
C1] Z¢4R((L[1]PATH R)2R)<«LE2] 


14 20 Change V12 
12 13. 20 15 16 17 


The idea is to return the first of R joined to an expression L[{2] which Is as it 
were “en passant” assigned to part of R using Selective assignment. The effect of 
right to left execution is that it is the updated R which is presented as the argu- 
ment to first. Programmers who find this degree of compression objectionable 
should nevertheless be able to recognize the intention of such code when reading, 
as opposed to writing, APL2. 


1.5 Restructuring 


The following functions restructure data: 


p (reshape) » (ravel) ® oe (rotate/reverse) 
& (transpose) < (enclose) > (disclose) 
€ (enlist) 


- this section discusses a variety of techniques for doing so. 

When constructing a scalar from composite data use of the enclose function is 
probably the technique that comes most readily to mind. This is not however 
the only way in which data can be reconstructed into scalar form as the fol- 
lowing illustration shows: 


Illustration : Scalarization 


The leading item in an array can be returned as a scalar, possibly enclosed, by 
applying (10) , e.g. 
(10)p(2 3p916)(* ABCD’) 


12 3 
4 5 6 


which has depth two and rank zero. Contrast this with + (first) which selects 
the leading item by removing a level of nesting if one exists: 


4°02 3p16)( ‘ABCD’ ) 
12 3 
4 5 6 

ept(2 3p16)(* ABCD’ ) 
2 3 


@(12=A)/'"A«cA' makes A into a Scalar if it is simple and non-scalar, other- 
wise it does nothing. It should not be used to define the result of a function 
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since if A has depth greater than one, the expression reduces to #10 which 
although valid does not return a value, so a function applied to it, e.g. p210, 
gives 2 VALUE ERROR. 


There are by contrast situations in which scalars are an embarrassment on 
account of the floating scalar rule, and it is desirable to eliminate the possibility 
that an array has empty shape. 


illustration : Descalarization 


1/S makes S into a one-item vector if it 1s a scalar, otherwise does nothing. 
This can be useful in generalizing algorithms where scalar arguments would 
result in errors, e.g. routines which use ¢{LppAJA to enclose an array A along its 
last axis: 


cCpepAJA¢2 2 3 2/2160 
2 3 4 5 6 
8 9 10 11 12 


13 14 1516 17 18 
19 20 21 22 23 24 


However a scalar argument results in: 


cCppSjS¢9 

AXIS ERROR 
cCLppSI]S¢9 
A A 


which can be prevented by: 
c[CppS]S+1/S<9 


Sometimes it is desirable to increase minimum rank still further as the next illus- 
tration shows: 


Illustration : Increasing Rank 


CO] Z*UPRANK R 
C1] Z2¢((-2[ppR)41 1,pR)pR 


transforms R into an array of rank at least two. It is most frequently used as 


[CO] Z*MATRIFY R 
C1] Z+(~241 1,pR)pR 


that is make a scalar into a 1x1 matrix, or a vector into a matrix with shape 
vector 1,pV. 
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Yet another restructuring requirement is to create a new array with the shape of 
an old one. 


illustration : Copying Structure 
AZA is an all-zeros array of the same structure as A. 


Ae 10 is an all-zeros array with the same top-level structure as A, e.g. 
V¥12<«12 (13 (14 15)) (16 17) 


V12#4#V12 
0 0 00 0 0 
V12€10 
000 


The enlist function may appear in selective specification and so (€A1)+«A2 uses 
the data of A2 to respecify the values of A1 whilst still retaining its structure. 

Combinations of functions and operators can be used in selective assignment 
as the next illustration shows. 


Illustration : Process numerics only in a mixed array 


The expression *OpcA returns the type of A and is discussed in detail in Section 
4.3. It copies the structure of A replacing numeric scalars with Os and character 
scalars with blanks. The following code fragment shows how it can be used in 
conjunction with selective assignment and reduction to perform actions on 
numeric items only. 

A«('XX' 1)C'YY' 2) 

(I/€A)<«1.1x(I*e0=t0pcA)/éEA 

A 

XX 1.1 YY 2.2 


1.5.1 Formatting 


The function format gives an all character representation, either a vector or a 
matrix, of its right argument, and always returns a simple result. Here are some 
examples: 
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DISPLAY 38V13«((2 2p°ABC')2(3 4)(5 6)) 


——__ 
+ AB 234 56| 
| CA | 
Le 


psVvi3 
2 19 


O<+T<3sJ<'ASSETS - ‘',2.9E6," EXPENSES - ‘',2.1E6 
ASSETS - 2900000 EXPENSES - 2100000 
(pT) (CpJ) 
38 23 


There are two forms of dyadic format which provide the user with very fine 
control of the data conversion and display. The first form is called “format by 
specification” in which the left argument may be either a scalar or vector of 
integers. If it is a single integer it defines the precision of the character represen- 
tation of all the numbers in the right argument. If it is a pair of integers, the 
first defines the total column field width for each column and the second defines 
the precision for each number. To achieve variation between columns a pair of 
integers can be provided for each column in the data right argument. For 
example: 


I#2.346 5897.645 .01 0O 


J¢9 231 
(pI) (pJ) 
4 36 
I 
2.346 ~5897.645 0.01 O 
J 
2.35 5897.65 01 ~00 


J+6 291025 381 
(pI) (pJ) 
4 24 
J 
2.35 ~5897.6 .01 .000 


The second form of dyadic format is “format by example” or as it was ori- 
ginally called “picture format.” A simple character vector left argument acts like 
a template or picture describing where the numeric data is to be placed when it 
is converted to its character representation. This character vector contains both 
character digits which determine the character representation of the numbers, 
and also “decorators” which are characters to be displayed in addition to the 
numbers. The character vector should be viewed as a set of fields, one for each 
column of the array right argument with each field containing character digits 
and possibly decorators. The fields are normally separated from each other by 
at least one blank character. 

The decorators may be 


simple - that is appearing in the formatted result exactly where placed in the 
character vector left argument; 
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controlled - that is the appearance in the formatted result depends upon the 
number being formatted, e.g. if it is positive or negative; or 


floating - position is controlled by the character digits in the associated field. 


Each of the ten digits, ‘0’ through ’9’, has a distinct meaning in the left argu- 
ment. Full descriptions are given in the language reference manuals, however 
the following summary may be helpful: 

The digits ‘0’,’5’,’8’ and ’9’ form a group. 

‘0’ means display all digits including zeros. 

‘5’ means remove leading/trailing zeros. 


‘8’ means pad with the default format control character (OFC([3]). 
‘9’ means pad with blanks. 


The following examples illustrate how these digits can be used to control the 
display: 


C+23.758 O 8653.2 


* 0000.00'S8C 
0023.76 0000.00 8653.20 
* 5555.55'38C 
23.76 8653.2 
* §550.55'8C 
23.76 0 8653.2 
* 5550.00'38C 
23.76 0.00 8653.20 


* 8880.00'S8C 
**23.76 *xkx0.00 8653.20 
* 9990.00°S8C 


0023.76 0.00 8653.20 
* 9990.55'38C 
0023.76 0) 8653.2 


Next here is an example of a simple decorator | 


*| 0000.00'°S8C 
| 0023.76| O000.00| 8653.20 


The digits ‘1’,’2’,’3’ and “4’ form a group which handle controlled and floating 
decorators. Decorators may appear either to the left or to the right of their 
number or to both left and right, in which case two digits from this group 
should be used which are interpreted left then right. The meanings of the digits 
are: 


‘1’ : apply a floating decorator to negative numbers only. 
‘2’ : apply a floating decorator to positive numbers only. 
‘3’ : apply a floating decorator to positive and negative numbers. 
‘4’ : cancel ‘1’, ‘2’ or ‘3’ on the other side of the decimal. 


Here are some examples to highlight these differences: 
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De 23.758 O 8653.2 
* $5,551.50CR’ 3D 


€23.76CR ~00 8,653.20 
* $5,552.50CR'&D 
23.76 $.00CR $8,653.20CR 
* $5,531.50CR'&D 
€23.76CR $.00 $8,653.20 
* $5,531.40CR'SD 
$23.76CR $.00CR $8,653.20CR 
* €5,514.50CR* sD 
$23.76CR ~OOCR 8,653.20CR 


The digits ‘6’ and ’7’ deal with the special cases of display of dates and times: 


"0006/06/06 06:06°&2000 01 01 12 30 
2000/01/01 12330 

"0006/06/06 06:06'&2000 01 01 12 30 
2000/01/01 12:30 


.. and of numbers in scientific notation: 


E«1753.4 ~.0024 0 “284 
* -1.70%4 01°SE 
1.75% 03 -2.40t 03 0.004 O00 -2.84+ O02 


The digit ’6’ marks the end of a field which is terminated by the immediately 
following decorator. The symbols , . - are not allowed as decorators in this 
context. 

In the example with digit ‘7’ the symbol + has been used in place of the con- 
ventional symbol E. 


1.5.1.2 Default rules for mixed data type 


The display of arrays of mixed data type is related to the result of the 
monadic form of format. There is a default pattern whereby the alignment of 
each column is independent of the contents of other columns, viz.: 


1. If the column contains all character data, the column display is left aligned. 


2. If the column contains all numeric data, the column is aligned on the 
decimal point and the decimal digits are right aligned. 


3. If the column contains character data and numeric data, the column display 
is right aligned. 


4. If the column contains a complex number, the character data is right 
aligned with the imaginary value and the J symbols line up. (Complex 
numbers with D and R symbols are converted to J type numbers on 
display.) A blank is provided for strictly real numbers. Both the real and 
imaginary parts align on the decimal point. 


ww as defined below ... 
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W1«'ABC’ "DEF' ‘GHI' 
W2¢2345 233345 .2345 
W3¢1.234 27 98765.43 
WW+3 30W1,W2,W3 


ww 
ABC DEF GHI 
2345 233345 0.2345 
1.234 27 98765.43 


.. appears identical in its output display to sWw: 


oWwWw 
ABC ABC ABC 
2345 233345 0.2345 
1.234 27 98765.43 
However: 
WW=s5WW 


0 


The difference is that =WwW is 2 while =sww is 1. Since the result of format is 
always simple 8A provides a guaranteed means of denesting arrays. 


Illustration : Convert an array of arbitrary rank into a matrix 


O 140 ~1¥3cUPRANK A (see Section 1.5 for UPRANK) transforms any array A 
into a simple character matrix. 


1.5.2 Sorting 


Grade-up and grade-down may take a left argument provided that the right 
argument is a simple non-scalar character array. In this case the left argument 
defines an alphabet or collating sequence. Where the collating sequence is a 
simple vector, it defines “alphabetical order” in the normal usage of that term. 
For example: 
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M14«5 3p 'COWBEEYAKCATSOW' 
M14 


" ABCEKOSTWY ' AM14 
24153 

M14( *ABCEKOSTWY ' AM143 ] 
BEE 
CAT 
Cow 
SOW 
YAK 


The collating sequence may have rank greater than one, in which case it is the 
last axis which is the most significant. This means that if a rank two collating 
matrix is supplied as left argument, all characters in its first column precede any 
in the second column, all of which precede any in the third column and so on. 
Suppose a collating matrix COLSEQ is defined as 


O+COLSEQ¢3 2p'BAYSOC' 
BA 
YS 
oc 


and used to order the rows of M14. Look first at the initial characters of each 
row of M14. Since C and S are absent from the first column of COLSEQ, CAT, 
Cow and sow all follow BEE and YAK. The priority of BEE and YAK is judged 
by observing their second characters. A and E are both absent from the first 
column of COLSEQ, however A is present in the second column from which E is 
absent and so YAK precedes BEE. To order the other three rows observe that S 
precedes C in the second column of COLSEQ and so Sow precedes both Cow and 
CAT whose order is determined by the first column of COLSEQ in which 0 is 
present but A is not. 


M14(CCOLSEQAM143 ] 
YAK 
BEE 
SOW 
COW 
CAT 


The above sounds complicated but the rationale is made clear by considering the 
most commonly used rank two collating matrix which is 


abcdefghijklmnopqrstuvwxyz 
ABCDEFGHIJKLMNOPORSTUVWXYZ 


This matrix represents two collating sequences, the major one along the last axis 
and the secondary one along the first axis so that all names beginning with the 
same latter are grouped together regardless of case. 
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Illustrations : Alphabetic sorting of vectors and matrices 


The Atomic Vector is a system variable which contains the 256 EBCDIC code 
representations of the APL2 character set. Letters of the alphabet in the same 
case occur in natural order in OAV which leads to the following technique for 
sorting either vectors of words or matrices whose rows are words: 


V14«"°SPARE' "ME ‘A‘* ‘DIME' 
VI4 lL OAVAV1I4) 
A DIME ME SPARE 


CO] Z*SORTC R 
C1] Z*+RCOAVAR; J] 


SORTC>V14 
A 
DIME 
ME 
SPARE 


For a three-dimensional character array dyadic grade-up sorts the array by 
planes: 


2(3V14)(M15¢3 4p'NOT A CENT") 
SPARE 
ME 


eT+>(>V14)M15 
245 
TCOAVATS ; 
NOT 
A 
CENT 


SPARE 
ME 

A 
DIME 


A related system variable DAF returns either the OAV character given the index 
or the index given the character, that is it is either OAViR or OAVCR]. 
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There is a Default Collating Sequence DCS in the form of a rank three array 

which is provided in a workspace UTILITY distributed with IBM APL2s. This 

has the property that the letters of the alphabet occur in alternate case order, 

1.e. AaBb ... etc.. Its shape is 10 2 28 and its major diagonal plane is: 
DISPLAY 1 1 2&DCS 


> 


| 
¥ ABCDEFGHIJKLMNOPQRSTUVWXYZO | 
| abcdefghijklmnopgqrstuvwxyz | 
ee | 


If DCS is used as the left argument of a grade function the right argument must 
be an array of rank two or above. Using Dcs for ordering character data has 
the advantage that the same letters in different cases are grouped together as 
opposed to OAV ordering in which all the letters in one case precede any of the 
letters in another. Also numeric characters appear in numerical order rather 
than in character order as happens using OAV, that is '9" precedes '10' using 
DCS. 

When discussing numeric vectors, it avoids ambiguity to use the word 
“ranking” rather than “rank” to denote positions of items following either 
ascending or descending ordering. These rankings are given by AA and AY 
respectively: 

AA12 67 43 28 9 
2543 1 


AV12 67 43 28 9 
4123 5 


When there are equal values in a vector Ad and Ay process the items in order of 
appearance from left to right within it: 


VWe5 335259 
AAV 
4235167 
AVV 
256374 1 


This may not always be the desirable thing to do, so two alternative techniques 
are shown in the illustrations below: 


Illustrations : Averaging tied rankings 


[0] Z*TUP R 
C1] Z*+.5x (AAR) +VAOR 


[CO] Z*+TDOWN R 
C1] Z*.5x(AVR)+VVOR 

3 3 
§ 2.5 2.5515 7 


3 5.5 5.5 373 1 
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Schoolmaster’s Rank 


Each group of “students” with equal scores is given the highest rank available. 


CO] Z¢SCH R 

C1] Z+(cRiR)JAVR 
SCH V 
272 


25 5 1 


The combination of partition and grade allows a simple vector to be reorganized 
as a vector of vectors where the items within each vector correspond to the same 
integer in a grouping vector, and zero represents omission: 


GV*#1 21203102 
R«"ABCDEFGHI' 
GVCLAGV]cRCLAGV] 

ACG BDI F 


1.6 Comparison and Inquiry 


The functions depth and find provide means for inquiry of nested arrays, while 
the match function provides a mechanism for their comparison. 


1.6.1 Depth 


Depth, the monadic function associated with the = symbol, has already been 
encountered informally as the number of line crossings in the DISPLAY diagram 
required to reach the deepest part of an array. More formally the depth of an 
array is defined recursively as one more than the depth of its deepest item, and 
the depth of a scalar is zero. A simple array is defined as an array with the 
property that all its items are scalars, and hence it follows that the depth of a 


simple array is one. 


1.6.2 Match 


Match is the dyadic function associated with = symbol. Its result is always a 
simple Boolean scalar which is 1 only if its arguments are equal in all respects, 
1.e. value, type, shape and depth. Here are some examples of similar objects 
which fail to match: 
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arguments differ only in ... 


2 3=3 2 value 
) 
""=10 type 
) 
(1 1p4)=1 1 1p4 rank 
) 
(,/1 2)=¢ec1 2 depth 
) 
(,/1 2)=1 2 rank and depth 
) 


and here is one which does match: 
(,/1 2)=e1 2 
1 


The match function differs from the scalar function equal which pervades struc- 
ture and does comparisons on simple scalar items. The match function by con- 
trast does a total comparison on all the attributes of its arguments, thus: 


(2 3)4=(2 3) 4 
11 1 
(2 3)4=(2 3) 4 


V«+'THE® ‘CAT’ 
VC 2J=c"CAT’ 


VL 2]=¢'CAT' 
1 


Match can thus often be used to shorten comparisons as in the following illus- 
tration : 


illustration : Test for all items in a vector the same 
V=10V 
is an alternative to 


A/V=10V Or VA.=10V 


1.6.3 Find 


The membership function ¢ tests whether a set of items is contained within 
another set by reporting the presence or absence of each item of the left argu- 
ment in the right, e.g. 


24 7€16 
11 0 
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To determine if an entire array is present in another array requires the dyadic 
function find (¢€) which looks for occurrences of the entire array left argument in 
the array right argument. The result is a binary array whose shape is that of the 
right argument with 1s indicating the beginning of occurrences of the left argu- 
ment. 


Illustration : Find all occurrences of one string within another 


‘CAT'ée*BATTY CATS SCATTER DUCATS' 
0000001000001 00000000%100 0 


illustration : Delete Multiple Blanks 


V15 
NO ONE IS AT HOME 
(~' "eV15)/V15 
NO ONE IS AT HOME 


The next illustration shows how a matrix can be used as a left argument of e: 


illustration : Pattern Matching 


Search for the 2 x 2 identity matrix in a pattern of bits: 


M16 
01010011 
10110011 
00001111 
10101110 
01011100 
11110110 
01000001 
11011101 
PAT 
10 
4 
PATeEM16 

01000000 
00010000 
00000000 
10100000 
00000000 
00000010 
00000000 
00000000 
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Exercises le 


1. Are the following scalars simple? If not what is their depth? 


a. (10)p(3 4 5) b. (10)p(3 4 5)(6 7) 


2. a. Write an expression to delete leading, trailing, and multiple blanks simul- 
taneously from a simple character vector. 


b. Write an expression using without to remove any all-blank rows from a 
(possibly nested) matrix M. 


3. Given the following collating sequences: 


CS1¢«°* ABCDEFabcdef' 
CS2¢«" AaBbCcDdEeFf' 
CS3¢>" ABCDEF' ‘abcdef' 


and the following matrix: 


M17 
CAB 
DAD 
BED 
Bed 
bed 
BAD 
ACE 
bad 
ace 
dad 


determine the results of the following expressions: 
a. M17[(CS14M173] b. M17[CS24M173] Cc. M17[CS3A4M173] 


4. a. Use dyadic grade-up to write a function which puts the rows of a character 
matrix in alphabetical order. Distinguish two cases: 


(i) all upper case letters come before any lower case letter; 
(ii) all a’s in any case come before any b’s and so on. 


b. Extend your expression to remove duplicate rows. 
5. Predict the result of * "eC where C is a character matrix. 


6. a. Generate the matrix of shape R whose top leftmost submatrix of shape L 
consists of 1s and the remainder is Os. 


b. Generalize this to the case where the window starts in row W and column C. 
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7. How would you find where dense points are located in a three dimensional bit 
array A where “dense” means there is a two by two by two cube of all 1’s, e.g. if 
A13 is 


01010 
01110 
1110 1 
11000 
1111 1 
0101 1 
11110 
11100 
11110 
1100 1 


then the first plane of the result is 


00000 
01000 
10000 
10000 
00000 
8. a. Write a function REPL which replaces each blank in a character array with 


the character ‘x’. Test that your function works with arguments of any rank 
(including 0). 


b. What changes would you make to create the function Repl which replaces 
every 0 in a simple (i.e. non-nested) numeric array with the three characters 
"N/A‘ ? 
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Summary of Functions used in Chapter 1 


Section 1.1 
PROTO 


Exercises 1a 
DIS 
QUAD 


Exercises 1b 
MONTH. 
START_DAY 


Exercises 1d 
ORDINAL 


Section 1.4.2 
CHANGE 


Section 15 
UPRANK 
MATRIFY 


Section 1.5.2 
SORTC 
TUP 
TDOWN 
SCH 


Exercises 1e 
REPL 


prototype 


enhanced form of DISPLAY 
solution of quadratic equations 


calendar for month 
auxiliary function for calendar 


constructs ordinal numbers 


exchanges items in nested vector 


increases rank of array to at least two 
makes scalar or vector into matrix 


sorts character matrix 
tied upward rank 
tied downward rank 
schoolmaster’s rank 


replaces items in character array 


Operators 


All programming languages contain a set of fundamental instructions to trans- 
form data which are collectively referred to as operations. In APL2 operations 
are subdivided into two categories, functions and operators. Data transforma- 
tion occurs directly through functions or indirectly through operators. The fol- 
lowing figure illustrates the relationship of functions and operators. 


APL vperanons 


Functions Operators 
(ambi-valent) (monadic/dyadic) 
pom Pepe 


manipulate 


r 


arguments operands 
(data) (functions/data) 


to ey 


a result a function 
(derived function) 


ir 


The role of operators is to modify functions before they are applied to data. 
Primitive operators are discussed in this chapter, and user-defined operators are 
introduced in Chapter 5. There are four symbols which are used to construct 
the primitive operators in APL2, namely / \ . “™ , and there are a total of 
eight essentially distinct operators which are given in the table below in which P 
and Q represent functions and V represents a scalar or vector. 
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P/... Reduce 
V/ ae. Replicate 
P\ 205 Scan 

V\ 20. Expand 


2e°.P... Outer Product 
»eP.Q... Inner Product 
P” ... Monadic Each 
»+eP”... Dyadic Each 


2.1 The Each Operator 


The each operator is intimately connected with nested arrays. It allows func- 
tions to be applied item by item to their arguments which is what happens in 
any case with scalar functions, i.e. functions like +, + and @. Each allows its 
function operands to be applied one level down in the structure of the array. 
Just as a function acts on data to produce further data called a result, so an 
operator acts on operands to produce a function called a derived function. 


2.1.1 Pervasiveness 


A pervasive function is one which penetrates the structure of its arguments 
and is applied to the simple scalars within it. All the scalar functions are perva- 
Sive, €.g. 


DISPLAY V21 


| 

1124 51 | pe po, i 
| 
| p Lv Lr | 
| 
L 


DISPLAY 10+V21 


ree - ee | 
Ly————-—-J_- | «4116 17] 118 19 201 | | 
ee ee ee ee 
Le —____ | 


The each operator causes its function operand to penetrate one level of struc- 
ture, and so all each-derived functions are pervasive through one level. 
Repeated applications of each are necessary to penetrate further levels of struc- 
ture: 
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V22«'ABCD' ('EFG' ‘HIJKL') 
DISPLAY 3pV22 


| 

ABCD! | pe— re | | 
LJ | |EFG| |HIJKL| | «<4 | 
| 

| 


| 
| 
| 
l ne 
| be —$—$$_$_$______ 
L 


DISPLAY 3p V22 


| 


Oe  —— 
|e. |, pr 
Fi canes De gees De genes cage ee eee 
| | |AAA| |[BBB| |CCC] |DDD| | | |EFGI| |HIJ| | | 
; | ey Le Le Ly | OY Le | | 
| Le $$$ $$ $$$ ______] ee | | 


There is a formal analogy between the identity 
S «> cS 


for simple scalars and the identity 
(F R) «> FR 


which defines a pervasive function F, in the sense that after removing R and the 
parentheses there is a one-to-one correspondence between the symbol sets (S,c) 
on the one hand and (F,”) on the other. 

The each operator takes on its real significance when applied to non-pervasive 
functions such as 1 and 9 as the following examples show: 


11234 
112123 31423 4 


O'APL' 'IS* ‘GREAT' 
GREAT IS APL 

®°'APL' ‘IS* ‘GREAT’ 
LPA SI TAERG 


V¥12<12013014 15))(16 17) 
3 20°<Vv12 
16 17 13 14 15 


Each is permitted in selective assignments, e.g. 
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(4° V12)«2 3 6 
V12 
2 3 14 15 6 17 


Illustration : Multi-path selection (scatter picking) 


V12€12(013014 15))(16 17) 
(2 2 1903 2)9°¢V12 
14 17 


Illustration : Frequency Distributions 


Section 1.2.6 illustrated how to use partition to group like items. This technique 
can be developed to obtain a frequency distribution of a vector of integers: 
V2 7457543772 


ep” VeVeVCLAV] 
212 2 4 


Illustration : Mid-points in Euclidean geometry 


Suppose 
(A B C D)<(0 0)(1 6)9(°5 4)(8 O) 


represent the co-ordinates of four Euclidean points and the function MIDPT is 


[oO] Z*MIDPT R 
C1] Z+.5x+/R 


The mid-points of the sides of the quadrilateral ABCD are: 
MIDPT”’ (A B)(B C)(C DCD A) 


2.1.2 Scalar Extension 


Scalar extension applies to the primitive scalar functions which means that if 
one of the arguments of a scalar dyadic function is a scalar, it is used as many 
times as necessary in order to apply the function once for each item in the other 
array argument. Thus the scalar 10 in the expression 10x15 is replicated five 
times to achieve the item by item multiplication. By enclosing one argument 
scalar extension of non-simple arguments becomes possible, e.g. 
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V21«(2 4 5)((6 7)(8 9 10)) 
DISPLAY (¢1 3 5)+2 4 


| r > | 

113571 15791 | 

a eee De Ce 

be———_____ 
DISPLAY 1 3 5+¢2 4 

| 

Pres rr or i! 

| 13 S| 15 71 17 91 I 

pbb bet Let | 

le 


These expressions can be represented by the following diagrams in which each 
rectangle or square represents a scalar: 


135 


Pervasiveness of scalar functions means that each is not required to qualify + in 
the above expressions. 
Derived functions resulting from reduction are not pervasive, e.g. 


+/(1 3)(2 4) 


is equivalent to 1 3 + 2 4, that is 3 7, whereas 
#/°(1 3902 4) 


is the result of applying +/ to each of 1 3 and 2 4, namely 4 6. In general if F 
is a scalar function the following are true: 


F/V «> V(1] F V(2] F ... 


F/°V «> CF/VC1J)(F/VEC2]) ... 
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Exercises 2a 


1. Given 


V23<«('ABC')((13)(2 3p "ABCD" )) 
V24<(c"ABC’)((13)02 3p"ABCD')) 


what are the DISPLAYed values of: 


a. pV23 d. pV24 
b. p“V23 e. p” V24 
Cc. p°"V23 f. p°"V24 


2. Evaluate the following: 


a. +/(3 4 5) 67 8 d. +/°(3 45) 678 
b. +/(3 4 5)(6 7 8) ee +/°(3 4 5)(6 7 8) 
Cc +/°3 4567 8 


3. Given that V is a lower case name vector, e.g. 'dick' ‘anne’, replace the 
first item in each name with its corresponding capital letter? 


4. The expression (N+/V)+4N gives the N-period moving average of a vector V. 
Adapt this to obtain the weighted moving average of V given a vector of weights 
W which sum to l, e.g. given weights .2 .4 .4, the weighted moving average of 
28563 1is 5.6 6.0 4.6 2.8. 


5. Given the vector 
V25«'ABC® (13)¢15) C*THIS' "IS" ‘A® ‘TEST') 


identify the following rearrangements of V25 from the options given below. 


v1 
ABC 
12 3 
12345 


THIS IS A TEST 


AW YS 
N = 


TEST 


Ww 
OV FPWN=| < 
» 


2. Operators 


v3 
ABC 12 3 12 3 4 § T I A 
H Ss 
TI 
S 
V4 
A 11 THIS 
B22 IS 
C33 A 
0 4 TEST 
05 
VS 
ABC 123 123 45 THIS 
Is 
A 
TEST 
V6 
A 1 1 THIS 
B 2 2 Is 
Cc 3 3 A 
4 TEST 
5 
l. Vi« a. 2({1]V25 
2. V2 <« b. ,(£10)°V25 
3. V3 <« c. ,[10]""<«V25 
4. Va4< d. ,({10)""°Vv25 
5. v5 « e. 2f{1]°V25 
6. V6 <¢ f. ,{10]V25 


g. >2°V25 


HW FH 
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2.1.3 Each with non-pervasive Functions 


The effect of applying each to the function shape is discussed in some detail, fol- 
lowing which its application to index of and grade-up are described in illus- 
trations. 


With 2 5 as left argument and 3 4 as right argument the result of 2 593 4 
1S 
3434 3 
43434 


APL2 however allows us to “scalarize” either or both arguments by enclosure, 
thereby increasing the possible interpretations of “reshape” for given left and 
right arguments by using the derived function p”. Scalarizing 2 5 can be pic- 
tured structurally as 


i.e. (2 593)(2 5p4) which is given in APL2 by 


(c2 S)p"3 4 
3333 3 4444 4 
333 3 3 44a4 4 


Enclosure is thus a device allowing scalar extension in the first-generation 
APL fashion, viz: 


pe 


25 


4 


and is therefore an appropriate way to solve the programming problem “Con- 
struct two 2 x 5 matrices one made up of 3s and the other of 4s.” 
Scalarizing the 3 4 is pictured analogously as 
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le. (2p3 4)(5p3 4) and tis rendered by 


2 S5p°¢3 4 
34 343 43 


Next the items may be applied pairwise: 


which is equivalent to (2p3)(5p4) and is given by 


2 59°3 4 
33 44444 


illustration : Each with index of 


Obtaining the letter indices of two words using the same alphabet means that 
the alphabet must be scalarized: 


so enclose left: 


(c"ABCDE')1i°"BED' ‘AXE’ 
254 16 5 


To obtain the letter indices of a word using two different alphabets it is the 
word which must be scalarized, so enclose right: 
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"ABCDE' ‘XYZ‘'1"°c'AXE' 
165 414 
illustration : Each with grade 
Two examples are given to deal with multiple words and multiple alphabets. 


One alphabet, two words: 


ABC CAT 


CAB 


(c"ABC’)A’ ‘CAT’ ‘CAB’ 
213 23 1 


One word, two alphabets: 


ABC CAB 


CBA 


‘ABC’ ‘CBA'A”™c*CAB' 
231132 
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Exercises 2b 


1. If We*ABC' ‘DEFG' what are 


a 2 3p W d. (¢2 3)p"W 
b. 2 3p"“cW €. (€e2 3)p°cW 
C. 2 3pc'W f, 2 3p 'W 


2.I1f Y«"HIGH' ‘AND' 'DRY' and 
ALF+«' ABCDEFGHIJKLMNOPQRSTUVWXYZ' what are 


a. ALFA>Y b. AALFA>Y C. A (CCALFOA'Y 


3. An experiment consists of rolling a die and counting the number of throws 
necessary to observe the first 6. Simulate the result of repeating the experiment 
three times. 


4. This exercise is about a titling function PRT3D for rank three arrays and pro- 
vides in its first line a practical demonstration of partial enclosure. Suppose 


A«100x12 

B«10x13 

C<i4 

eA21«A°.+Be.+C 
23 4 


Titling consists of two parts per dimension, viz. a descriptor and a vector of 
individual headings. For example, for the array D the planes could be labelled 


AAA= 100 , AAA= 200 


where the descriptor is AAA= and the headings are 100 and 200. The function 
PRT3D takes as a left argument a six item vector V_ comprising 
descriptor/headings for planes, rows and columns respectively. 


CO] Z*¢L PRT3D R;PLA; ROW;COL 
C1] zec{2 3]A 

C2] 2" *,C1)]°*' *,(2]°2 

C3] PLA¢L(1],°2>L 

C4] ROW<'\',L03],4>L 

C5] COL€L(5],62L 

C6] Z«(cROW),  (cCOL),(1)]°Z 
C7] Z*PLA,(1.5]2 

C8] Z¢,C10jZ 
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TITLES«*AAA=" A ‘BBB=" B ‘CCC=" C 


TITLES PRT3D A21 
AAA= 100 


\ Cccc= 1 2 3 4 


BBB= 
10 111112 113 114 
20 121 122 123 124 
30 131 132 133 134 
AAA= 200 


\ CCC= 1 2 3 4 


BBB= 
10 211 212 213 214 
20 221 222 223 224 
30 231 232 233 234 
Problems: 


a. Study the function PRT3D and attach a short comment to each line. 


b. Fill in the following table for the value of the result variable Z following 
execution of the lines indicated: 


= 0 2” 


C1] 
C2] 
C6] 
C7] 
C8] 


c. In line PRT3D(C3] why is the first item indexed (L[1]) but the second item 
picked (2>L)? 


d. Suppose all the headings are to be character vectors, e.g. 


PLA1 PLA2 
ROW1 ROW2 ROW3 
COL1 COL2 COL3 COL4 


What changes are needed in (i) TITLES? (ii) PRT3D? 
5. The Pascal Triangle of size N consists of the non-zero entries in the outer 


product (i1N)°.!1N. Write functions PASCAL and CENTER to achieve the fol- 
lowing displayed versions: 


2. Operators 


PASCAL 8 


10 10 5 1 

15 20 15 6 1 

21 35 35 21 7 1 
28 56 70 56 28 8 1 


2a 328 aw oo oe or os os 
oN OA Mn LEWD 


CENTER PASCAL 8 


133 1 
14 6 4 1 
15 10105 1 
1615 20 15 6 1 
17 21 35 35 21 7 1 
18 28 56 70 S56 28 8 1 
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2.1.4 Index with Each 


The basic structure for the index function is 
IQR 


where R is a data array and I a Set of selection indices. Compared with bracket 
indexing the index function has the advantage of requiring no semicolons. This 
allows a defined operation to select items via indexing from an array of arbi- 
trary rank. The length of the left argument must match the rank of the right, 
that 1s 


(p,1) +> poR 


The left argument of index may be an array of depth two or less. This permits 
multiple indices along each of the dimensions of R. Thus for a rank 2 array R 


(1 2)(3 4)0R 


is equivalent to R[1 233 4]. In words this expression selects all the items 
from R which lie in rows one and two, and also in columns three and four. In 
conjunction with the each operator, the index function permits scatter indexing 
which is the process of selecting items at will from an array. With scatter 
indexing the sets of indices are regarded as separate and independent. For 
example to select just the item in the first row and second column and the item 
in the third row and fourth column, the same left argument is used as in the 
previous example but it is necessary to make the index function the operand of 
each with a scalarized right argument thus: 


(1 2)(3 4)0"¢CR 


Pictorially this can be shown: 


which is equivalent in bracket indexing to (R[132])(R(334]) . 

On the other hand to find the item in row | and column 2 of several matrices 
the index left argument must be scalarized in conjunction with the application of 
each. Pictorially the situation 1s 
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R 


and the appropriate APL2 expression is: 
(c1 2)0°R S 

which is equivalent to (R[132])(S[1:2]). A depth-two index, e.g. 
(<(1 2)(3 4))0°R S 

is equivalent to: 
(RO1 233 4))(SE£1 233 4]) 


Now go one stage deeper. 

1 30°c¢*ABC' 
means form a two-letter word from the first and third letters of the alphabet 
"ABC'. To form two words, say a one-letter word and a two-letter word, define 


CO] 2Z+L SEL R 
C1] Z+«L0"cR 


and again scalarize the alphabet but this time as right argument to the derived 
function SEL”, e.g. 


(101 3))SEL"¢c'ABC' 
A AC 


To form two one-letter words requires an explicit use of ravel on account of 
the fact that enclosure of simple scalars does not increase depth. 


» 1 3 SEL'ABC' 
AC 


Axis specification may be applied to the index function, and the resulting con- 
struct 


LOCIIR 


is called index with axis. Here is an example: 
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DISPLAY M11 


| 
, re re ist! 
| ICHARS| 11 2 3 4] | 
| en rs Ov eec | | 
l reo | 
| vABI 16 | 
| |ICD| | 
| Lod | 
Le—_—__—____—— 


DISPLAY 2 2 1001]°¢M11 


rs 0 es 0 | 


| > 


| ree | | re | ——— | 
| vAB| 16 | | ¥ABI 16 | | ICHARSI| |1 2 3 41 | 
| ICD| | | IcDI | jt Ww | 
pj Lod J] Le | le — $$ _____} 


be 


The axis qualifier can be thought of as an operator whose derived function is 
001]. 
For Z«LOQR the following identity holds 


pZ «> 2,/p"L 


and for Z«LOCIIR, eZ is the shape of R with the Ith item replaced by >,/p“L. 


2.2 Extensions to the Slash Operator 


A full discussion of how reduction, scan and inner and outer product have been 
refined to deal with nested arrays is given in Chapter 5. However two straight- 
forward extensions of reduction merit immediate attention. 


2.2.1 Replicate 


In APL2 the slash operator may take as its left operand either a rank one or 
zero data array, or any function producing such a result. With data Vv as the 
operand, the derived function v/ is called replicate. This enhances what was 
previously called compression by allowing the data operand to consist of a 
simple scalar or vector of integers. When the operand is a vector of just zeros 
and ones it may still be called compression as in: 


10 1/*ABC* 
AC 
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With non-negative integers the vector operand acts as a mask on the data argu- 
ment, and the integer determines the number of times the matching data item is 
replicated. Thus: 


3 0 2/‘ABC* 
AAACC 
Negative integers in the left argument result in the indicated number of fill items 
(see Section 1.3.2) being inserted in the designated position, e.g: 
1°23 0 2/14 
10022244 


DISPLAY 0 ~2 2 O 3/(‘'A'S) ‘At 7 'B' 
et 
ras ro | 
| | Of | Of AABBBII 
po bye bye 2 2 ee 


be —__— 
The relationship between the left operand L and the right argument R is either: 


1. L is a non-negative scalar in which case it applies to all the items of R, or 

2. the number of non-negative items of L must match the shape vector item of 
R corresponding to the dimension in which replication is to occur. Formally 
if L/C IIR is valid then the following identity holds: 


(+/°14#xL) «+ I>pR 


illustration : The conjunction IF 


Throughout the remainder of this book the function: 


[CO] ZL IF R 
C1] Z*R/L 


will be used so that where there are branches in functions 
*L1 IF condition 


mirrors the English words “branch to L1 if...” . 


illustration : Multiple copies of matrix rows 


Obtain one copy of the second row and two copies of the fifth row of a matrix. 


M21«S 3p ‘ANDBOYCANDADEAT' 
0100 2/£1]M21 

BOY 

EAT 

EAT 
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It should be emphasized that the slash in replicate is a monadic operator 
symbol and so a vector V to its left is an operand and the combination V/ is a 
derived function. This has a practical consequence which is illustrated by the 
following sequence: 


1 0 1/*ABC* 
AC 
1 01/*ABC® *DEF* ‘GHI' 
ABC GHI 
10 1/°"'ABC* *DEF* ‘GHI' 
AC DF GI 


(1 0 1901 10)00 1 1)/°*ABC* ‘DEF* ‘GHI' 
DOMAIN ERROR 

(1 0 1901 10)00 1 1)/°*ABC* ‘DEF* ‘GHI' 

A A 


The DOMAIN ERROR occurs because the operator / is evaluated before the oper- 
ator each and the left operand of / must be simple. The intention was presum- 
ably to achieve 


(1 0 1/°ABC')(1 1 O/*DEF')(O 1 1/*GHI") 
using each. However in order to apply each simple vector to the corresponding 


component of the right argument, the operand has to be made into an argument 
by creating a defined function, e.g.: 


[0] Z*L COMPRESS R 
C1] Z*L/R 


(1 0 1)3¢1 1 0)(0 1 1)COMPRESS”*ABC* ‘DEF ‘GHI' 
AC DE HI 


In the special case however where the left operand L contains just one simple 
item the derived function L/ is evaluated first and so each can be applied to it 
to give e.g. 
1/°(€12) (013) 
12 12 3 


10 2/°(13)(03+13) 
133 46 6 


When reduction is applied to non-scalar functions such as p and , the inter- 
mediate results in general possess structure and so must be enclosed to obtain 
the correct rank. For example 


ep/2 3 


has the value 23, that is 3 3, but rank reduction demands that the final result 
is ¢3 3. Similarly 


»/2 3 
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results in <¢2 3. Thus both p/ and ,/ increase depth as the cost of reducing 
rank. Similar considerations apply to scan and expand. 


illustration : Avoiding Blanks in List Lengths 


(10)s can sometimes be deceptive on account of their “invisibility” in output, 
for example 


ep°(2 2p14)(3)(4 5 6 7) 
2 4 


One way of overcoming this by turning scalars into one-item vectors is: 


p°1/°C(2 2p14)(03)04 5 6 7) 
22 1 4 


2.2.2 Dyadic Reduction 


The derived function reduction has a dyadic form called n-wise reduction 
S F/CI] R. §S, which must be a scalar integer, defines a “window” of consec- 
utive items to which reduction applies. The window moves along axis I one 
position at a time until all items of R have been covered. For example, a vector 
of consecutive pairs of items is given by: 


25/14 
12 23 #34 


The expression (14),/"¢14 produces a vector of vectors containing the 1, 2, 3 
and 4 tuples while 5,/14 defines the prototype of 14. 

If the left argument L of n-wise reduction applied to a vector is a negative 
integer the items within the window are reversed before reduction is applied, so 
that (-L),/V is equivalent to OL, /ov. 


Illustration : Reversing scans 


+\V can be reversed by ~2 reduction, that is 
Vi = ~2-/0,+\V 

is true for all numeric vectors v. The analogous formula for reversing x\ is 
Vi = ~234/0;,x\V 


which is true for all numeric vectors V which do not contain a zero. In the 
binary domain =\ and #\ are reversed using the identities 


V = ~22=/1,=\V and V = ~2#/0,4\V 


A fuller account of scans can be found in Section 5.5.3. 
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Integers greater than |1+pV in the left argument of n-wise reduction result in a 
DOMAIN ERROR. The left argument may be zero, e.g. 


0,/14 
is a vector of five <10s. This example demonstrates the consistency of APL2 in 
dealing with edge conditions by fulfilling the identity 

(St+pS F/V) «+> (1+pV) 


Note: 0,/V may give a DOMAIN ERROR on some APL2 implementations. 


lilustration : Partitioning a Record into Fields 


Suppose a record RC read from a file is 40 characters in length and contains 
four fields of lengths 10, 15, 8, and 7. The following expression uses n-wise 
reduction to split RC into four fields: 


FW+10 15 8 7 
(FW/ 1p FW) CRC 


Exercises 2c 


1. Create a function Compress which is a modification of the function COM- 
PRESS in Section 2.2.1 and which accepts an axis specification as part of an 
argument, e.g.: 


M M1 
ABC PQR 
DEF STU 
GHI VWX 
(1 01)1 Compress M 
ABC 
GHI 
(<(1 0 1)2) Compress"M M1 
AC PR 
DF SU 
GI VX 


2. What are the values of 


a. 2-/10 5 2 12 6 b. —2-/10 5 2 12 6 
C. 29/23 4 d. -2e/2 3 4? 


3. a. State in words the result of the expression ((2xpV)p0 ~1)/V. (Consider 
as a test case V«(5 'A") (13) 'B* 23). 
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b. Write an expression which will replace each item in a vector V with its own 
prototype. (Hint - Use the COMPRESS function in Section 2.2.1). 


4. How many scans other than +\, x\, =\ and #\ can you reverse using ~2 
n-wise reduction in the style of Section 2.2.2? 


5. If V is a simple vector and F is a primitive scalar dyadic function what does 
the following expression define : 


F/"CipV)4"cV 9 


6. a. Write a recursive function DTB to delete trailing blanks (but no others) 
from a character vector. 


b. How else could this be could this be achieved in APL2? 


c. How would you use DTB to remove trailing blanks from every word in a 
vector of words vw? 


7. a. For a simple numeric vector V write an expression for the product of all 
consecutive pair-wise sums of items, e.g. if V is 15 the result is 3x5x7x9 = 
945. 


b. Describe the string 
€3 1 4p”'ABC' 


in terms of just one primitive function or operator. 


8. Write a function FIND which behaves like e (see Section 1.6.3) except that it 
returns a 1 in the position corresponding to every matched character, e.g. 


‘CAT’ FIND ‘BATTY CATS SCATTER DUCATS' 
000000111 00011%190O0900000%1 11 0 


9. In the third illustration of Section 1.6.3 how would you amend the expression 
to find all occurrences of the pattern 


PAT 
1X 
xX 1 


where X stands for “don’t care,” that is the bit concerned may be either a 0 or a 
1? 
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Summary of Functions used in Chapter 2 


Section 2.1.1 
MIDPT 


Exercises 2b 
PRT3D 
PASCAL 
CENTER 


Section 2.1.4 
SEL 


Section 2.2.1 
IF 
COMPRESS 


Exercises 2c 
DTB 
FIND 


mid-points in Euclidean geometry 


titles three dimensional matrix 
Pascal’s triangle 
centers rows of character matrix 


multiple scatter indexing 


conditional branching 
functional form of compress operator 


deletes trailing blanks 
enhancement of primitive function find 
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3 
Elementary Data Structuring 


The objective of this chapter is to demonstrate the effectiveness of APL2 in 
dealing with relatively straightforward commercial and financial programming 
Situations based on real applications. There are two main sections each of which 
is given in the form of an extended illustration with narrative. The final exer- 
cises try to show how rapidly a reasonably substantial application can be built 
up from scratch. 


3.1 Example 1. Product Stocks 


This example is about stocks of five components X801 to X805 which are 
bought from three countries, JAPAN, TAIWAN and HONGKONG. The rele- 
vant stocks for each component are given below (JAPAN does not deal with 
X804 or X805 and HONGKONG does not deal with X805 or X802): 


JAPAN¢4S 75 15 
TAIWAN¢35 75 15 45 95 
HONGKONG<35 0O 55 15 


With such a data organization a variety of questions can be asked, e.g. what is 
the total number of JAPAN components? 


+/JAPAN 
135 


Each allows all countries to be processed simultaneously: 


+/°“ JAPAN TAIWAN HONGKONG 
135 265 105 


The total stock of components is 


+/€JAPAN TAIWAN HONGKONG 
505 


or if 


STOCKS¢JAPAN TAIWAN HONGKONG 
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then 
STOCKS 
45 75 15 35 75 15 45 95 35 O 55 15 
and 
+/“STOCKS 
135 265 105 
and 
+/éeSTOCKS 
505 


To find the total stocks by components two options are available. Either country 
vector is padded out with zeros so that the component items are in matching 
positions: 


+/5%° STOCKS 
115 150 85 60 95 


or >S are used to create a matrix within which the padding takes place automat- 
ically and then sum down the columns: 


+#>STOCKS 
115 150 85 60 95 


Now enter the costs of the various components ... 
CosTS<(39 19 29)(35 15 29 15 45)(25 15 19 12.5) 


Suppose X802 for JAPAN was in error. The X802 cost component for JAPAN 
is set to the correct value of 15 by: 


(1 25COSTS)<15 
Costs 
39 15 29 35 15 29 15 45 25 15 19 12.5 


The total cost of inventory by country is: 


COSTS+.x”° STOCKS 
3315 7735 2107.5 


and the total cost of inventory is: 


+/éeCOSTSxSTOCKS 
13157.5 


By establishing the names of the countries as a variable ..: 
CNIRIES<«*JAPAN' ‘TAIWAN’ ‘HONGKONG '* 


.. the cost of inventory for each country can be displayed as 


CNIRIES, “COSTS+.x” STOCKS 
JAPAN 3315 TAIWAN 7735 HONGKONG 2107.5 


Suppose all prices are to be marked up by 80% : 
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COSTSx1.8 
70.2 27 52.2 63 27 52.2 27 81 45 27 34.2 22.5 


Each entry may have different markups: 


PRICES¢COSTSx1.6 1.7 1.8 
PRICES 
62.4 24 46.4 59.5 25.5 49.3 25.5 76.5 45 27 34.2 22.5 


The resulting net markups for each country/component combination are: 


NETMU¢STOCKSxPRICES-COSTS 
NETMU 
1053 675 261 857.5 787.5 304.5 472.5 2992.5 700 O 836 150 


.. and the net markup for the entire stock is: 


+/é€NETMU 
9089.5 


The average percent markup 1s: 


L.5+100x(+/éeNETMU) #+/¢eCOSTSxSTOCKS 
69 


.. and the biggest net markup in each country is given by: 


[ / “NETMU 
1053 2992.5 836 


By establishing the component names as CNOS 
CNOS<°X801°* *X802° ‘*X803° ‘X8O4* ‘xX8s05' 


the maxima may be stated by component name: 


CNOS(NETMU1 “[ /“NETMU J 
X801 X805 X803 


Instead of viewing STOCKS as a vector of vectors: 


STOCKS 
45 75 15 35 75 15 45 95 35 0 55 15 


it may be viewed in tabular form: 


2STOCKS 
45 75 15 O O 
35 75 15 45 95 
35 055 15 O 


OF... 


>[1]STOCKS 
45 35 35 
75 75 Oo 
15 15 55 
0 45 15 
095 0 


Note that missing fields are automatically filled with zeros. 
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The tabular representation of STOCKS may be prefaced by country labels: 


CNTRIES, >STOCKS 
JAPAN 45 75 15 0 0O 
TAIWAN 35 75 15 45 95 
HONGKONG 35 0 55 15 0 


.. and column headings may be added: 


(* *,CNOS),(£1J° *,Cf1JCNTRIES, =STOCKS 


X801 X802 X803 X804 X805 


JAPAN 45 75 15 0 0 
TAIWAN 35 75 15 45 95 
HONGKONG 35 0 55 15 0 


So far all the titles have been added in interactive mode. It could be embedded 
in a function such as 


VZ«L TOPS R 
C1] Z«(* *,L),01]* *,C1IRV 


CNOS TOPS CNTRIES, =STOCKS 


X801 X802 X803 X804 X805 


JAPAN 45 75 15 0 0 
TAIWAN 35 75 15 45 95 
HONGKONG 35 0 55 15 0 


Suppose the component names are too long to make the table look nice. One 
possibility would be to list the names vertically which leads to the following 
alternative presentation : 


(>C1]CNOS)TOPS CNTRIES, =>STOCKS 


=-O00n 
NO O&O XK 
WO oO Xx 
Foo KX 
u © Oo x 


JAPAN 45 75 15 0 0O 
TAIWAN 35 75 15 45 95 
HONGKONG 35 0 55 15 0O 


Or perhaps there should be more spaces in the original report ... 
(6 O3SCNOS) TOPS CNTRIES,2>(c6 0)38°STOCKS 


X801 X802 xX803 X804 xX805 


JAPAN 45 75 15 
TAIWAN 35 75 15 45 95 
HONGKONG 35 ) 55 15 
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Because & is used this version shows blanks for items which are not present. 


Summary reports are obtained by: 


‘TOTAL INVENTORY! ,+/ée€STOCKS 
TOTAL INVENTORY 505 


(SCNTRIES) ,+/ STOCKS 
JAPAN 135 
TAIWAN 265 
HONGKONG 105 


(>CNOS) ,+/>[1JSTOCKS 
X801 115 
X802 150 
X803 85 
X804 60 
X805 95 


To view all this information collectively use: 


A<«(2>CNOS) ,+/2£1JSTOCKS 
B<«(SCNTRIES) ,+/>STOCKS 
C<*'TOTAL INVENTORY’ ,+/¢e€STOCKS 
ABC 
X801 115 JAPAN 135 TOTAL INVENTORY 505 
X802 150 TAIWAN 265 
X803 85 HONGKONG 105 
X804 60 
X805 95 


... Or Vertically: 


»sC1i0JA BC 
X801 115 
X802 150 
X803 85 
X804 60 
X805 95 


JAPAN 135 
TAIWAN 265 
HONGKONG 105 


TOTAL INVENTORY 505 


Finally for a full spreadsheet type of report: 
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HEAD<«CNOS,c¢‘TOTS' 

BODY«CNTRIES, (>STOCKS) ,+/>STOCKS 
FEET¢(¢c*TOTALS'),(+/>(£1]STOCKS) »+/é€STOCKS 
HEAD TOPS BODY,({1]FEET 


X801 X802 X803 X804 X805 TOTS 


JAPAN 45 75 15 e) 0 135 
TAIWAN 35 75 15 45 95 265 
HONGKONG 35 e) 55 15 0 105 
TOTALS 115 150 85 60 95 505 


pHEAD TOPS BODY,[(1J]FEET 
6 7 


Typically this would be embodied in a function that allowed the report to be 
run repeatedly with only a change in STOCKS. 


[0] Z*HR REPORT RsHEAD CNTRIES FEET 

C1] amHR: Two item vector of row and column titles 
C2] (HEAD CNTRIES) «HR 

C3] HEAD<(*'),HEAD,¢c*TOTS' 

C4) BODY<CNTRIES, (2R),+/2R 

CS] FEET¢(c'TOTALS'),(+/2(1]R),+/eR 

C6] Z*HEAD TOPS BODY,[{1]FEET 


The above report is then produced by 
(CNOS CNTRIES)REPORT STOCKS 


Of course a good spreadsheet reporting system could have done as much up to 
this point, however with APL2 this is only a beginning. APL2 doesn’t just 
format reports - it is a powerful general-purpose language which as well as 
doing the simple sums above could equally well have performed complex statis- 
tical functions tailored to the user’s special needs. 


Exercises 3a 


1. For the example above find the average selling prices for each of the five 
components for two different definitions of “average” namely 


a. a Simple average of the selling prices in countries which hold stocks of the 
component; 
b. an average weighted by quantities in stock. 


2. Order the components by decreasing profitability within each country. First 
obtain the answer as indices, then translate these into component names. 
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3. A Cash Register system 

Many cash registers not only print out the cost of each item but also the name 
of the item. In order to do this assume that the system has a STOCK database. 
Suppose each entry in this database consists of (inventory number) (product 
name) (unit amount)(cost per unit). For example: 


SCREWS¢211 "THREADIES* 1000 1.98 
SPANNERS¢312 ‘FLATONES' 1 1.09 
PLUGS¢«654 ‘LOTSAVOLTS’ 2 1.55 
STOCK*+SCREWS SPANNERS PLUGS 


Define a function RECEIPT which will accept a vector of inventory numbers 
and the name of the stock database, and produce a matrix listing of the product 
names, unit amounts and costs per unit that match the inventory numbers. 
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3.2 Example 2. Optimizing Rental Charges 


This is an example of a financial application using the ideas of probability and 
discounted cash flow. A _ business offers both lease and outright purchase 
options on its products, and requires to determine “multipliers” where a multi- 
plier is defined as 


outright purchase price 


monthly rental charge 


The customer’s decision to buy or rent is determined by two factors, namely 
his perception of the lifetime of the product and his view of the discounted 
present value of future rental payments. These can be combined in a discounted 
cash flow calculation 


CO] Z+L PCENTFOR R 
C1) Ze+/01+,.01xL312)°.%112xR 


which results in the total number of monthly rentals discounted at L% which 
will be paid over a period of R years. This is equivalent to the maximum 
number of monthly rentals which the rational customer would be prepared to 
pay for outright purchase. For example with cash discounted at 7%, the equiv- 
alent number of monthly rentals paid over four years at present values is given 


by 


237 PCENTFOR 4 
41.76 


For a given product at a given moment in time the perception of discount rate 
and lifetime varies over a range of existing and prospective customers, and for 
modelling purposes it is assumed that both can be described in terms of esti- 
mated frequency distributions. The structure of customer lifetime perceptions 
will also vary for different products according to their rate of depreciation, e.g. 
television sets wear out gradually, whereas software becomes obsolete in a more 
sudden fashion. 

On the financial side, discounted rates for the value of future money varies for 
different customers even at the same moment in time. 

Suppose that the vectors DRATE and LIFEX describe possible discount rates 
and lifetime expectancies, and that the vectors DLIST and LDIST represent the 
proportions of customers holding these beliefs. 


DRATE¢7 9 11 13 
LIFEX«4 5 6 


DDIST¢.2 .4 .3 .1 
LDIST¢.25 .5 .25 


ie. 20% of customers discount future money at 7%, 40% at 9% and so on, 
while 25% estimate product lifetime as four years, etc. 


3. Elementary Data Structuring 83 


The joint distribution of the discount rate DRATE and the life expectancies 
LIFEX is the outer product 


2Z$DRATE*.PCENTFOR LIFEX 
41.76 50.50 58.65 
40.18 48.17 55.48 
38.69 45.99 52.54 
37.28 43.95 49.82 


and the matching joint distribution of expectancies is the outer product 


3¢DDIST*.xLDIST 
~050 .100 .050 
~-100 .200 .100 
-075 .150 .075 
~025 .050 .025 


Suppose now that the supplier fixes the multiplier at 50 say. If all customers 
are assumed to behave rationally what proportion will opt for purchase? Call 
the two tables above MTAB and PTAB standing for multipliers table and pro- 
portions table respectively and define a function CUSPRO: 


MTAB«DRATE°.PCENTFOR LIFEX 
PTAB¢DDISTe.xLDIST 


CO] 2Z+«L CUSPRO R;MTAB;PTAB 

[1] aL: a2 item vector - multipliers table and proportions table 
[2] aR: a multiplier 

[3] aZ: “opt to purchase 

C4]  (MTAB PTAB)<L 

C5] Z«+/(R<,MTAB)/,PTAB 


The above question for a multiplier of 50 is then answered by 


(MTAB PTAB) CUSPRO 50 
0.325 


Now extend this to a range of multipliers. 


(cMTAB PTAB) CUSPRO” 40 45 50 
0.9 0.7 0.325 


What if the distribution of customer lifetime perceptions varies according to 
whether the customer is a new or an existing renter? To accommodate this 
adjust LIFEX to include smaller lifetimes and LDIST to be a two-item vector 
where the first item reflects the distribution of a new customer and the second 
item the distribution of an existing renter. 


Lifex¢16 
Ldist«(0 0 0 .25 .5 .25)(.1 .2 .3 .2 .2 O) 


The two outer products require adjustment, in particular the one which multi- 
plies the distributions since what is needed is two separate tables corresponding 
to each of the two discrete distribution items of Ldist: 
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Mtab¢DRATE*e.PCENTFOR Lifex 
Ptabe(cDDIST)°.x"Ldist 


Since Ptab is now a vector comprising two items, each of them a table, it is the 
derived function COMPRESS” (see Section 2.2.1) which has to be applied to each 
of them, and similarly for ,“ and +/”. This requires that CUSPRO be rewritten 
as 


[0] 2Z¢«L Cuspro R;Mtab;Ptab 
C1] (Mtab Ptab)<L 
C2] Z+t+/"(cR<,Mtab)COMPRESS”, “Ptab 


so that its result is now a two-item vector with each item corresponding to one 
of the customer classes, new or existing: 


(Mtab Ptab)Cuspro 50 
0.325 0.04 


To investigate a range of multipliers apply each as before: 


(cMtab Ptab)Cuspro’40 45 50 
0.9 0.32 0.7 0.18 0.325 0.04 


or if the result is required as a table: 


2(cMtab Ptab)Cuspro’40 45 50 
0.9 0.32 
0.7 0.18 
0.325 0.04 


To recap so far, the above table contains the proportions of customers opting 
for purchase. The (implicit) row headers are the multipliers set by the supplier, 
and the columns relate to new and existing customers respectively. 

Given this information together with a forecast of the numbers of new and 
existing customers, the supplier may now calculate his expected revenues for dif- 
ferent multipliers. Suppose that he has done this and has produced a five-item 
forecast revenue vector REV: 


REV¢3300 4000 5300 6400 7000 


(It is true that the forecast of numbers of new and existing customers is likely to 
depend on the multiplier but this complexity is ignored for the time being.) 

The supplier as well as his customers has a perception concerning the dis- 
counted value of money. How does this allow the supplier to maximize his 
revenue? The following function returns net present value: 

[OJ Z*+L NPV R 
[1] aL: discount rate as a percentage 


[2] aR: vector of amounts 
[3] 2tRti(1+.01xL) x1pRe,R 


The value of a single sum discounted for different rates for one year is given 
by 


(c10 12)NPV 100 
90.909 89.286 
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and the outer product 


10 12°.NPV 100 200 300 
90.909 181.82 272.73 


gives the value of several sums discounted for one year at different rates. 
For a given revenue estimate vector REV the supplier can now discount the 
first item over one year, the second over two years and so on to give: 


10 NPV REV 
3000 3305.8 3982 4371.3 4346.4 


as the projected revenue discounted at 10%. 
Applying each to the revenue vector allows this calculation to be performed 
for several discount rates, e.g. 


+/°10 12 NPV'cCREV 
19005 17947 


returns the total revenues with discounting at 10% and 12% respectively. Now 
at last the supplier is in a position to examine simultaneously his returns under a 
variety of assumptions and to make what he believes to be an optimum decision 
in setting the multiplier. 


Exercises 3b 


1. Given MTAB and PTAB as defined above, estimate the value of the multiplier 
at which 50% of customers opt for purchase? (Hint: order the items in ,PTAB 
according to the corresponding values in ,MTAB.) 


2. Obtain a table of discount rates 10% and 12% versus several revenue 
projections, e.g. 


REV+3300 4000 5300 6400 7000 (as in the text above) 
REV1«5p3300 
REV2«3300x(1.05)*0,14 


3. The staff of a department starts a savings bank, and records the individual 
transactions of members in a numeric nested vector BANK which is structured 
hierarchically as follows: 


BANK 
- MEMBER RECORD 
- MONTH 
~ TRANSACTIONS 


BANK is a vector of MEMBER RECORDS. A MEMBER RECORD is in turn a vector 
of MONTHS of positive or negative TRANSACTIONS where a deposit is indicated 
by a positive number and a withdrawal by a negative number. At the trans- 
action level a deposit is indicated by a positive number, and a withdrawal by a 
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negative number. A MONTH is a vector of transactions, a MEMBER RECORD is a 
vector of months, and BANK is a vector of member records. 

A typical instance of BANK after one such bank had been operating for two 
months with four members is 


BANK<((20 ~5 10 ~5)(4 ~2 ~7))(€°10 25)(16 3)) 
((5 “9 ~2)(6 ~3 ~3))025(10)) 


Give APL2 expressions which answer the following for this or any similarly 
structured bank: 


a. How many members has the bank? 


b. For each member over the entire period, what are 
(i) his net deposits? 
(ii) his total deposits? 
(iii) his total withdrawals? 


c. What is each member’s sequence of monthly balances over the period? 
d. What are the bank’s net deposits by month over the period? 
e. What is the net amount on deposit with the bank at the end of the period? 


4. Last Trades. 
Consider the following portion of data from the stock exchange: 


MMM 3:25 95 

T 3:27 36.5 
GM 3:31 43 

MMM 3:33 42.75 
IBM 3:45 102.25 
IBM 3:57 102.125 
GM 4:02 43.125 
GM 43:04 43.375 
IBM 4:04 102.25 
T 4:05 36.75 
IBM 43:12 102.5 


Assume it is structured as a nested three column matrix STP in which each 
row represents a trade on the stock exchange, the first column is the trading 
symbol, the second the time of the trade and the third the trading price. 
Problems: 


a. Create a function LAST_TRADE to find the last trade of each stock. 


b. Modify the function to another function STK_LAST_TRADE which finds the 
last trade of a given stock. 
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c. Enhance the program to return a message if the stock is not traded. 


d. Modify LAST_TRADE to a function TIM_LAST_TRADE which returns the last 
trade of each stock after a given time. 
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Summary of Functions used in Chapter 3 


Section 3.1 


REPORT formatted report 

Exercises 3a 

RECEIPT builds cash register receipt 

Section 3.2 

PCENTFOR discounted cash flow calculation 
CUSPRO customer proportion opting to purchase 
NPV net present value 

Exercises 3b 

LAST_TRADE last trade of each stock 


STK_LAST_TRADE last trade of given stock 
TIM_LAST_TRADE last trade after given time 


4 
Using Functions and Arrays 


Chapters 1 and 2 discussed functions and operators in relative isolation. Chap- 
ters 4 and 5 are about the interactions of various functions and operators and 
thus provide a study in greater depth of the features of APL2 which are most 
intimately connected with nested arrays and the associated operations of enclose, 
disclose and each. Although the basic concepts are few a new perspective is 
required in order to acquire fluency in application. There is an analogy to the 
mental leap needed to move from thinking in two dimensional geometry to 
thinking in three dimensions. Data objects in first-generation APL possess data 
and structure where structure is synonymous with shape. In APL2 structure is 
given the additional aspect of depth, thereby releasing the user from the shackles 
of rectangular data structure and thus making it possible to model data struc- 
tures of almost indefinite complexity. The price of the flexibility afforded by the 
combination of data, depth and shape is that the simultaneous control of all 
three is a skill which has to be consciously acquired through practice in order to 
exploit the great programming versatility which nested arrays afford. 


4.1 Cross-sections, Picking and Indexing 


The distinction between items on the one hand and cells on the other, that is 
Objects containing items, is crucial to understanding nested arrays. In general, 
indexing creates cross-sections of arrays, and for a two-item vector V this can be 
pictured 
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VC1] V[2] 


whereas pick penetrates arrays, thereby reducing depth. 


} 


12V 2>V 


Thus if Vv is a vector, then contrary to what one might intuitively suppose, V[1] 
is not the first item of V, but rather it contains the first item of v. Enclosure 
thus provides a container for data and indexing selects from a rectangular array 
of containers. 


Disclose on the other hand removes a container, allowing functions to be per- 
formed on its contents. The following vector identity reinforces this point: 


VCEIj = cIsV 


(cf. post- and pre-brackets in Section 1.3.3). For example suppose 
vV+'GO* "TO* ‘BED’ 


2>V is the two-item vector 'TO* whereas PLV], or equivalently 20V, is <2>V, 
that is the enclose of 'To*. Thus 


VL2j=<¢*TO’* 
1 

(22V)=c*TO* 
0 
Also 

VC3j=<c*BED' 
111 


(35V)=c*BED' 
100 01310 00 1 


The last expression answers the nine separate questions 


*BRr='Re "Ria" *Rr='pe 
*ee='Be (heaters *ke='*h? 
"D'="B? 'D'=s'E "DD '='p 
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A visually similar relationship exists between the argument and result of an 
each-derived function. This may be expressed: 


If F is a monadic function and Z«F“R where R is a vector then for all valid I 
ZCI] <«* c¢FoR[I] 


The sequence “enclose-function-disclose” is of such frequent occurrence that the 
above statement will be called the “each rule.” Since disclose is the inverse of 
enclose the above equivalence can be seen as a manifestation of the formula 
GFG' which pervades mathematics, and linear algebra in particular. ZandR 
have the same shape, that is 


eZ ¢> oR 
and the following identities also hold 


*F IQR +> FtI0R 
F"R1 R2 +> (F R1I)(F R2) 


For dyadic F with 
Z+L FR 

the corresponding form of the each rule is 

ZCI] «> c(2L[1I])F>=REI] 
or equivalently 

IJZ «7 c(SIQL)F>I0R 
Here the disclose step is applied simultaneously to both arguments. The analo- 
gous identities are 


10,2 > (4I0.L)F4I0,R 
L1 L2 F°R1 R2 «> (L1 F R1)(L2 F R2) 


Contrast this with the function pick for which the corresponding rules are 
I2>Z «> F I5R 


Im2Z «> (ISL)IF ISR 


The vector rules for L F” R are readily extendible to arrays of higher rank. 
Here are the considerations involved in applying the each rule to evaluate e.g. 


V41e (02 2303 1)3)9°C014) ‘ABC’ ) 


Each argument of p” 1s a two-item vector, and so the each rule says that in 
order to obtain the leading item of the result vector 1> must be applied to both 
arguments to obtain 2 2 on the left and (14) on the right. Now op is applied 
and the result enclosed and placed in its proper cell in the result. For the second 
item do the same with 2> to give a result 
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DISPLAY V41 


r 
| l 
| | 
1 13 41 IBI J 
| bot cl | 
| | 
L 


4.1.1 Each and Scalar Functions 


Another way to view each is in terms of scalar functions where a scalar function 
is defined as one which is applied independently to each item in the case of a 
monadic function, or between corresponding items of the left and right argu- 
ments in the dyadic case. Thus for example + is a scalar function and 


123+45 6 


can be viewed as shorthand for 
(14#4) (245) (346) 


Regardless of whether or not F is scalar F” behaves like a scalar function one 
level down in the data structure of its arguments. 

Scalar function behavior also means that scalar extension applies. The two 
basic forms of scalar extension are illustrated by 


Example Scalar extension 
SFA 2+345 22 243 45 
AFsS 123 + 10 1 2 3+10 10 10 


The following frequently occurring patterns arise on account of the fact that F” 
is a scalar function: 


S F" AB +> (S F ADCS F B) 
ABF’ S&S +> (A F S)(B F S) 
ABF" CD «>? (A F C)(B F D) 


Another way to evaluate the vector Vv in the previous example is to observe that 
(C2 2903 12) pp” €014) "ABC") 

is equivalent to 
(2 2p14) (3 1p'ABC") 


When F is itself a scalar function each has no role to play since F already 
penetrates all levels of structure down to the simple items. Thus 1 2+3 4 is 
identical to 1 2+°3 4, whereas the following are not identical: 
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DISPLAY 1 2,3 4 
or 
1123 4 
Lv—____ 
DISPLAY 1 2,°3 4 
pe 
Irmo re i! 
f 11 31 12 4] | 
| bw dt bart | 


Le ——_____] 
Scalar extension often comes about through the application of enclose, for 
example: 
(c3 1) p” ((14) ‘ABC') 
iS equivalent to 
(3 1p14) (3 1p°ABC’) 
Because the derived function F” behaves like a scalar function one level down, 


three patterns involving the explicit use of enclose tend to arise in expressions, 
namely: 


(cA) F” B 
A F” (cB) 
F° c{I] A 


The first two reflect the scalar-function-array and the array-function-scalar pat- 
terns of scalar extension. The third one typically creates a vector for which a 
function such as grade-up or +/ is applied to each item. 

The depth function further emphasizes the difference between pick and 
indexing in that =V[1] is two, and =1>V is one. Yet another way to look at 
this is to say that Vv can be viewed in either of two ways: 


(a) as the join of two depth two objects, or 
(b) as the enclosure of two depth one objects. 


A consequence of this is that care must be taken to distinguish “the first item of 
an array” from “the first cell of an array.” The former implies depth-reduction, 
the latter not. 

Vector notation provides a mechanism for enclosure without explicit use of the 
enclose function as in 


‘ABC’ "XYZ'°A'CAT' ‘AXE' 
213 21 3 


Here L[1] is the scalar c*ABC', R[1] is the scalar ¢'CAT', so the dyadic 
form of the each rule predicts that Z[1] is ¢"ABC'A*CAT'. 
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4.2 Some Illustrations using Nested Arrays 


Sometimes algorithms carry over without change from the non-nested case, e.g. 
((DOC1D)=1pDOC)/DOC removes duplicate words from a “document” DOC 
which is a vector of character vector “words.” 


Illustration : Word Search 


Test for occurrences of a word in a document. 
DOC<*THE ONLY THING TO FEAR IS FEAR ITSELF.'° 


DC<(" *#DOC)<¢DOC a partition string into words 
(c'FEAR')€DC a is the word present? 

1 . 
(c*FEAR')="DC a a mask for its occurrences 


000001010 


Illustration : Spell Check 


Find the words in TEXT which are not in DICT. Thus for spell checking, TEXT 
is the text as a vector of words, and DICT is the dictionary, also as a vector of 
words. 


DICT<«*RECEIPT® ‘THES "THEIR' ‘THERES ‘WAS' 
TEXT<«* THIER RECIEPT WAS THERE’ 
TEXT<¢«(* *#TEXT) cTEXT 
TEXT~DICT 
THIER RECIEPT 


Illustration : Enlarging a List of Words 


Let LIST be an existing vector of words, for example 
LIST<(* *#LIST)cLIST¢*BOOK READ THE TO TOO* 


and 
TEXT<*TO* ‘READS ‘THE’ ‘TWO’ ‘RED* ‘BOOKS! ‘TOO’* 


Following 
LIST¢«LIST, TEXT~LIST 


LIST is updated with the words of TEXT not previously in LIST. 
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illustration : Vector Merge 


Merge two vectors in the sense of taking one item alternately from each. For 
example: 


V42<'PETER ' "PAUL ' ‘MARY ' 
V43<'AND ' "AND '° "BROWN ' 
€V42,°V43 


PETER AND PAUL AND MARY BROWN 


Illustration : Random Sentence Building 


Given a vector of subjects, a vector of verbs and a vector of nouns, the following 
function will generate random sentences. 


CO] Z*SENTENCE SVN 

[1] aSN: a three item vector of vectors 

[2] aZ: arandom sentence consisting of subject, verb and noun 
C3] Z+(?p°SVN)2> "SVN 


For example, with 


SUBJECTS<«*RAY' "NORMANS ‘JO' ‘JEAN’ ‘DAVID' 
VERBS<'EATS' ‘LIKES' ‘DISLIKES ‘ENJOYS' 
NOUNS< ‘FISH’ "OATMEAL ‘APPLES‘ ‘OLIVES’ ‘SPINACH’ 


SENTENCE SUBJECTS VERBS NOUNS 


might produce 
JO LIKES OLIVES 


A common problem when using each in APL2 programming is ensuring that 
corresponding encloses and discloses are matched correctly. Programming with 
nested arrays rapidly leads to the discovery that a tiny difference in code can 
make a large difference in result, and consequently it is important to recognize 
differences between similar but subtly different expressions. The following exer- 
cises emphasize this point, and the solutions illustrate the extra complexity 
which arises when enclosure and each are used together. 


Exercises 4a 


1. Suppose V is the vector 4 5 6. Consider the following set of eight some- 
what similar expressions all of which are variations on the theme 


2 3pV 
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Some are meaningful, some are not. Evaluate those which are and predict the 
nature of the error in the case of those which are not. 


a. 2 3pcV e. (c2 3)0V 
b. 2 3p"cV f. (¢2 3)pcVv 
C. 2 3p°V g. (€c2 3)p°V 
d. 2 3pc"V h. (¢2 3)p"cv? 


A detailed discussion of this exercise is given in Appendix A. 


2. Here are some similar variations on the theme '‘AB*,*CDE’. What is the 
result of executing the following: 


"AB’,¢'CDE' 
"AB', “c*CDE' 
"AB’,”°CD' 
"AB',c” *CDE' 


(c°AB'),¢°CDE' 
(c'AB'),°“c*CDE’ 
‘AB',” "*CDE* 
"AB',”"c'CDE' ? 


aoe PS 
roa oo 


3. a. How would you sort a vector of codes each of which is a mixture of 
numerics and alphabetics, e.g. A9, B12, B9, b9, B10, ... ? Distinguish two 
cases: 


(i) all upper case letters come before any lower case letter; 
(ii) all a’s in any case come before any b’s and so on. 


4. Use OAF to construct the “alphabet” ‘AaBbCc ... '. (See Section 1.5.2 for 
a description of DAF.) 


5. If v1 is a vector of words, write an expression which returns a 1 to indicate 
the occurrence of any of the words in V1 as consecutive characters in a char- 
acter vector V2. 


6. Write an expression which returns the index of every occurrence of 'AB*C* in 
a character string v where 

a. * represents any single character; 

b. * represents any character string of arbitrary length including zero, which 
does not contain a further °c’. 


7. Word Analysis 
Suppose you have a variable representing textual data as a simple character 
vector, ( e.g. GETTYSBURG representing the Gettysburg address). 


a. How many words does it contain? 


b. How many distinct words does it contain (remember to remove punctu- 
ation and to change upper case letters to lower case at the start of sen- 
tences)? 
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c. How many occurrences are there of each of these distinct words, that is 
obtain a concordance of the data with the words sorted in order of fre- 
quency of occurrence. 


8. What does the following expression do 
e* *,°V 


given that V is a vector of words? 
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4.2.1 Further Illustrations using Nested Arrays 


Illustration : Catenation of Matrices 


A frequent programming task to which APL2 brings a new way of thinking is 
that of adjoining two matrices of unequal dimensions, e.g. 
DISPLAY LEFT RIGHT 
ree) Loe | 
¥PIP|  ¥DICK | 
| TOM | | ALBERT | 
rs | 


|Jo | 
— 


Suppose LEFT and RIGHT are to be catenated along the first dimension. An 
APL2 style algorithm converts each matrix to a vector of rows, catenates them, 
and reconstitutes the result as a matrix. A function to do this is 


Co] Z+L VCAT R a vertical catenation of matrices 
C1] Ze>>,/c[2]"L R 


LEFT VCAT RIGHT 


DICK 
ALBERT 


The two discloses in VCAT relate to two enclosures, one explicit, and the other 
implicit arising from ,/ which will be discussed in detail in Chapter 5. 

VCAT as given above requires that both arguments are matrices. If the func- 
tion is to work with vectors or scalars, <[2] must be generalized to 


[0] Z+PENCL R a descalarize and partial enclose 
C1] Z+c[CppRIR*1/R 


(1/R makes R into a one-item vector if it is a scalar, otherwise does nothing - see 
Section 1.5.) Therefore rewrite VCAT as 

[OJ Z+L Veat R 

C1] Z+>3,/PENCL’L R 


LEFT Vcat'3’ 
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3 Vcat 4 
3 
4 
*PIG'Vcat'SHEEP' 
PIG 
SHEEP 


illustration : Partial Enclosure 


If it is logical to think of a matrix as a vector of row vectors or as a vector of 
column vectors, then consider using ¢{[2]M and c¢{1]M respectively. For 
example to transform a matrix M with a single 1 in each row, e.g. 


0010 
1000 
000 1 


into the column indices the ones by rows use 


(cC2]M)1°1 
3 14 


which is arguably more expressive of intention than the regularly used idioms 
from first-generation APL 


M+.xX1 14pM and 1++/A\M#1 


or even the APL2 idiom 
Mf.11 


where f is any dyadic function. This is discussed in detail in Section 5.5.6. 


Illustration : Find the co-ordinates of the 1s in a binary matrix 


Given 
1 $1 
0 0 
1 0 
the co-ordinate pairs of the 1s in M41 are 


(1,1) (1,2) (2,4) (3,1) 


One way to obtain these is to use T : 


C1] ZtONES R 
C2] Z2¢c(1J]1+(€pRIT 1+(,R)/1x/pR 


of which a more elegant but less efficient form 1s: 
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C1] Z¢+Ones R 
[2] 2¢1+(cpR)IT" 14+(,R)/1p,R 


>ONES M41 displays the co-ordinate pairs, one per row: 
ONES M41 
1114224 31 


If it is desired to retain the row structure in the solution each row of M should be 
thought of separately as a compression vector on 14, so following the reasoning 
of Section 2.1 14 should be scalarized as indicated by the following diagram: 


and the function COMPRESS 


CO] ZtL COMPRESS R 
C1) Z¢*L/R 


used to give 


DISPLAY CIi¢«(¢[2]M41) COMPRESS “c1i4 


err | 


| 
| 
fp bert Ln Ld | 
L 


Next each row number is joined with its own set of indices using the function 


5 


which is achieved by the expression 
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DISPLAY(13), "CI 


Ot ees 0 eee Be eee 
Phos res Il lr IlLdElre ds 
1 |} 14 47 117 21 — — 12 4 — TE 13 11-0 
Jf bev bet pf bet P| 
| Le $$ __] Le~e—_ Le—_____| | 
Lg 
Adding >”: 

3°(13),°"CI 
11 #24 31 
12 


gives what is perhaps a more Satisfactory display, or more generally 
>"CitpM), ~~ Cel2]M)COMPRESS"c1i1+ 9M 


To generalize this phrase, further account should be taken of the possibility of 
all-zero rows. Empty vectors must be eliminated from the result of COMPRESS” 
and matching row indices from the left argument of ,*” which leads to 


(CV/M)/1itpM),° °C CelL2]M) COMPRESS “c11+9M)~c10 


Illustration : Binary matrix as partitions of column indices 


The first row of the matrix M in the previous illustration : 


M41 
1100 
000 1 
1000 


partitions 14 into 3 4 corresponding to Os and 1 2 corresponding to 1s, the 
second row partitions 14 into 1 2 3 and 4, and the third row partitions 14 into 
2 3 4and1. The necessary masks can be described by 


and translated into indices by applying COMPRESS” with a further level of 
nesting in the left argument 
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JL 3 | 


DISPLAY(¢({2]” (~M41)M41) COMPRESS" "cc14 


r> 
ee eee We ees 0 gees 0 eee ee 
1} 13 41 114 231 123 41 1 1 14 21 tat data t 
en i re es ovens Ds Ds ovens Dd Ores a ee 
| ble——————_ J ble | 
le 


Exercises 4b 


1. Assume DTB is defined as in Exercise 2c6 to delete trailing blanks from a 
character vector. 


a. Use this function to write another function DBTM which converts a character 

name matrix (i.e. one in which each row is a name, and the shorter names are 
padded on the right with blanks) into a vector of names, each with no trailing 
blanks. | 


b. Write a function Z«L INDEX R for which R is a simple character string, L is 
a name matrix, i.e. a matrix each of whose rows is a name, possibly padded with 
blanks, and Z is the indices of all rows of the matrix which contain R, if neces- 
sary padded with blanks. 


2. a. Write an expression which makes a character matrix consisting entirely of 
digits and spaces into a numeric matrix possibly padded with zeros. 


b. Generalize your expression to deal with arrays of any dimension. 
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4.3 Distinctions between Similar Primitives 


APL2 has several alternatives for selecting items from a nested array. The 
group of functions 


first, take, pick, disclose and index 


are discussed together since they have both semantic and graphical affinities 
with each other. In the context of this discussion, index applies equally to 
“squad” indexing and to bracket indexing. 


4.3.1 First and Take/Drop 


A significant attribute of functions is their effect with regard to depth. First is 
depth-reducing, take and drop are not. 


DISPLAY V+c[1]2 3p16 
a 
ae eee ee eee Oe eee 
1 11 41 12 SI 13 61 | 
Jobat bet Let! | 


Le———_____———————— 
DISPLAY” (*V)(14V) 
eee ee er 


11 4) | poy | 
Lv— J | [1 4] | 
J bet | 
Le—__ 


“CVI CA#VIC14V) 


21 2 


Thus + and 1% offer a straightforward choice between penetration (i.e. depth- 
reduction) and cross-sectioning (cf. Section 4.1 Pick and Indexing). For example 
418 is scalar 1, 118 is vector 1. Further, + will do a ravel if necessary and is 
thus guaranteed not to give LENGTH ERRORs such as arise from, say 


142 2914 


For all non-empty arrays A the following identity holds 
(tA) «> (cT)32(T¢(CppA)p1) 4A 


where (ppA)p1 should be considered as a path. The presence of the pick on the 
right hand side emphasizes the need to reduce depth by one in order to relate a 
first to a take. 

Take and drop are the subject of two identities: 


(pItA) <> [I 
(pIVA) <> Of (pA)-I 
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where I is an index vector. These formalize the rank-preserving property of take 
and drop. 

Idioms involving first are more numerous than those involving take, for 
example 


A+2 5 2 3/160 


+A a first item of a simple array 


1 
40,A a last item of a simple array 
60 
4pA a size of first dimension 
2 
4OpA a size of last dimension 
3 


Combining first and drop leads to some useful phrases, e.g. +1¥V selects the Ith 
item in vector V regardless of the setting of 010. Hence 


etconditionyd ‘then clause’ ‘else clause’ 


implements if-then-else (see Section 5.6.2 for another way of doing so), or more 
generally 


o*Iv "* ‘'casel* *case2° cee "casen ' 


implements a case statement, for example 


COND 2<1+COND1<«1+CONDO<0O 
@2*tCONDOv'O* *10° *20'° 


e) 
| @2*COND1+¥°O" *°10° *20'° 

10 
@*tCOND2+°'O* °10° *20° 

20 


+” penetrates but does not remove the outer level of structure. Instead it 
removes the levels below the outer one so that the identity 


ept°A <«+> pA 
holds. For example 
DISPLAY Vec(1J]2 3916 


The rank of each item of an array is given by: 
h"p"p"A 
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For example: 


M422 2p(2 2p'ABC'(2 2p°X'))6(01 3p5)(13) 
DISPLAY M42 


i e_S—M 7 
i | 
l+re—rn ls 6 | 
| | I[ABCI| vXX]| | | 
| j bee! | xXx! | | 
| | Lt | | 
llores rn | | 
| | [ABC] ¥XXI | | 
| | ted Xx! | | 
| | Lt | | 
| be—————______ | 
et ieee re Cis 
| +5 5 SI 11 2 31 | 
| nme nn 
be———__ 
pp "M42 

2 0 

21 


Another phrase involving + strips off one level of depth from within the outer- 
most layer: 


+ > / > “V 
for example 


V44<((2 2p'ABC')(2(03 4))(05 6)) 
DISPLAY V44 


DISPLAY ,°V44 


| | 
| |ABCA| | r— | IS 6 | 
| at of 213 4] | eed | 
| | Livmd | | 
| Le~—_______| | 
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DISPLAY ;/;° V44 


(see Section 5.5.2 for a detailed description of , /.) 


DISPLAY *+;/5°V44 
rs | 


| r> | 


| 
| ABCA 2 13 4I 5 6 | 
J--- - bod | 


Le———___ 
p > / 9 “ V44 
8 
Contrast this with e« which strips aif levels of nesting: 


DISPLAY €V44 


Oo 
[ABCA 23 4 5 6l 
ry | 


péeV44 
9 


4.3.2 First and Pick 


The depth of the right argument of dyadic > (pick) is reduced by the number of 
items in its left argument or path. 


Vec(1]2 3p16 


DISPLAY" (V)(22V)(2 12V) 
rs ee es 


rrr er s=—idté=COsCéiédL2:“ ‘| 2 
1 14 41 12 51 13 6) | Wed 

ee es ee Oe 
Le——____ 


="(V)(22V)(2 12¥V) 
210 


The above rule extends to the case of an empty path, in which case the result is 
simply the right argument, that is 10 is the left identity of pick. 


(10) >V 
14 25 3 6 


1>V is equivalent to *v for any non-empty vector Vv. While both are depth- 
reducing, the former is valid only if v has at least one item, otherwise an INDEX 
ERROR occurs. First (+) by contrast never returns an INDEX ERROR. If there is 
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no first item, first supplies a fill item. In the first two examples below the fill 
item is a scalar, in the third example it is an empty vector. 


DISPLAY t0Op2 3p5 


‘@] 
DISPLAY tOp2 3p'ABC' 
DISPLAY *tc10 

ro 

[O| 

Lo 


4.3.2.1 Type and Prototype 


The value of the fill item arising from applying + to an empty array depends on 
how the empty array was constructed in the first place. Although empty arrays 
are objects with structure but without data, they have to be created out of some 
data initially, and the originating data is reflected in the value of +A. For 
example: 


A«3 4 Op(¢2p9) (399) 
Be3 4 Op(c3p9)(c2p9) 


tA 
00 

+B 
000 


The above results are called the prototypes, which means literally the types of 
the firsts, of A and B. Only the leading item from which an array is created 
influences its prototype, e.g. the fact that the second item from which A above is 
created has shape 3 is not reflected in the prototype. 

The prototype of an empty array A is thus a non-empty array and its data 
does not reproduce the data which was used in constructing A in the first place, 
which cannot be recaptured by further processing. For example 


12 244A 
00 00 
00 00 
contains no reference to 9, although the type and structure of A are inherited by 
the prototype. 

It is often desirable to construct an array of identical structure to a general 
array A with oO replacing numbers, blank replacing characters, and 10s 
remaining unchanged. This is achieved by enveloping A in a further level of 
nesting and then deliberately constructing an empty array OpcA whose proto- 


type has the desired property. The result of the expression tOpcA is called the 
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type of A. In passing note the approximate graphical similarity between the word 
“type” and the APL character string “*Opc.” Here is an example: 


V45«(137 ‘ABCDEF'(45 'G")) 
DISPLAY V45 
rs | 
| pe 
| 137 |ABCDEF| |145 GI | 
| Lt ky | 
Le —$— 
DISPLAY tOpcV45 


illustration : Distinguishing character, numeric, etc. 


Defining 


CO] ZtTYPE R 
[1] Z*tOpcR 


the expression 210 * ‘eeTYPE A returns O for empty, 1 for character, 2 for 
numeric, 3 for mixed. 


The first of the ravel of the non-empty array TYPE A can now be defined as 
the prototype of A, thus extending the definition of prototype to non-empty 
arrays. 

Prototypes are most useful when dealing with objects which are uniform in 
structure, since in this case the structure of the leading item reflects the con- 
struction of all items. They are also used in situations where “proxy” data is 
needed by functions which either 


(1) enlarge structure (but not data) either at the extremities (take) or at an 
arbitrary point within the structure (expand and replicate); or 


(2) pad structure to rectangularity (disclose). 


The fill item is different in the two cases above, viz. in case (1) the prototype of 
the entire array is used, e.g. 


V46e((1 2337004 5 6)(7 8) 
DISPLAY 4t+V46 


lee ROO aR ae i! 
| | peo | 145 61 17 81 | pe 1 | 
1 1 14 21 3 | bod bo—t | 10 0] OF | 
| | bod | | bv | | 
| bLe——_ Le—____] | 
L 
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DISPLAY 101 1\V46 


reo roo ae oe! 
| — ll eo | 145 61 17 81 | 
1 11 21 3 | | 10 Of] O | bod bod | 
[| bd [| bd | | 
Le ———__ Le ——___] | 


DISPLAY 1 ~1 1 1/V46 
ae 
eee Oe cs Oe ces Oe ee 


| Reo | | pe | 14 5 61 [7 8I 
) Lv J] Lm | 


| 
| 
L 11 21 3 | | 10 OF © | bam et bot | 
| 
| 


| 

| 

| 

| 

| Le ———__] Le ———______ 

La 


In case (2) the prototypes of cross-sections of the array are used, that is +“ Op" V: 


>V46 
12 3 00 
4 5 6 
7 8 ) 


IBM manuals have defined prototype as tOpct, that is as TYPE first, 
however two of the characters in this phrase are redundant in that 


OpctA <«> *00A 


Informally ¢ (enclose) replaces the depth that + (first) removes. Further if A is 
empty, or even if only +A is empty, then the prototype is +A. 
To summarize, prototype is tOpA, reducing to tA if +A is empty. 


4.3.3 Pick and Disclose 


Both disclose (>) and pick (+) reduce the depth of an array, however pick is 
selective as well. In selecting an item pick may penetrate several levels of struc- 
ture. Pick always returns the selected item as it was nested in the structure. Dis- 
close may result in padding with fill items. Disclose returns all of the original 
data but it is transformed into an object with one less level of depth. It changes 
the structure of the original object, but requires uniformity of rank one level 
down, that is all items of p“p “A must be identical, subject to some flexibility on 
account of scalar extension. Thus the following is an error situation: 


A«3 2p16 

V+‘ ABC’ 

VA¢+V A 

2VA 
RANK ERROR 

>VA 

AA 
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If rank uniformity one level down does apply, the shape of 3A is the shape of A 
with [/p “A catenated to its right. Formally 


(p>A) «> (pA),[/ "pA 
When axis qualification is used with disclose used, it indicates where the nested 
shape values are to appear in the disclosed array. Here are some examples: 

e(1 2)(3 4 5) 


2 
ep2(1 2)(3 4 5) © a default axis for > is 2 
2 3 a 3 comes from inner structure to second 
position of new structure 
2(1 2)(3 4 5) 
12 0 
4 5 
e2f1)(1 2)(3 4 5) 
3 2 a 3 comes from inner structure to first 
position of new structure 
201J)(1 2)(3 4 5) 
1 3 
24 
05 


The next example demonstrates the effect of using a vector as an axis qualifier: 


A¢3 2p16 
Be2 4910x118 
AB«A B 
e AB 
2 
pe” AB 
32 24 
DAB+«>AB 
e DAB 
234 
e>C1 2]AB 
3 42 
p>{1 3]AB 
3 24 


When V is a vector of vectors >V is often useful for displaying v as a matrix, 
thereby make the relation between corresponding items clearer. 


Illustration : Converting vector of names to a matrix form 


While some functions such as grade-up require simple matrix arguments, names 
are often more easily entered as a vector of vectors, e.g. 


NAMEVV+'NORMAN' ‘JEAN’ ‘JO’ ‘RAY' 


Disclose gets them into a matrix form: 
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MNAMES+>NAMEVV 
op MNAMES 

4 6 
MNAMES 

NORMAN 

JEAN 

JO 

RAY 


4.3.4 First and Disclose 


Suppose 
A¢c?2 2910 


In this instance >A and +A have identical results but the routes by which they 
are reached are quite different. The effect of disclose, >, is to restructure the 
entire nested object by bringing the shape vector 2 2 from the inner structure to 
the outer structure. 

By contrast first (+) does a depth-reducing selection which penetrates one level 
of depth and selects the first object it finds there, in the case of A the 2x2 matrix 
within the nested scalar. 

Both functions are inverse to enclose, that is +*cA and >cA are both equiv- 
alent to A. Enclose however is not the inverse of either, i.e. in general neither 
c*A nor ¢>A is equivalent to A. 


4.3.5 Summary of Relationship between above Functions 
It is useful to summarize the relationships between these functions both in the 
form of a table: 


Depth- Fill Structural/ 
reducing? Index-err? Selection? 


> Disclose Y F STR 
s Take N F SEL 
* First Y F SEL 
> Pick Y I SEL 
0 Index N I SEL 


and also in the form of a diagram in which a double line indicates that the two 
functions at its ends share two attributes from the table, a single line that they 
share just one. 
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| TAKE) (+) 


| DISCLOSE (=) (>) Tor qi 
ot [ inl 


Both the table and the diagram show how first has the the greatest overall 
affinity with the others in the set. Also although pick and disclose share a 
common symbol they have only one of the three attributes in common. 


Exercises 4c 


1. Given 
A«2 3716 B<«3 C+'"APL’ E+( cA) ,B,cC 


what are value, shape and depth for each of the following : 


a. OpE f. *EC2] 

b. *0pE g 2EC2] 

Cc. *OpcE h. *t0pE(2] 
d. #0p 14E 1 2>0pE[2] 
e. 20p>2E ? 


2. For any array A describe fully the differences between 
a. tA b.14A c.1>A d.AC1]. e.10A 


Which, if any, are the same if 

(i) A*(1 2903 4) ~~ (ii) Aei8 
3. Define De>(1 2)3'ABC'. 

a. What is (i) the type; (ii) the prototype of D ? 

b. What, if any, is the difference between the prototypes of D and oD ? 


c. What are (i) 54D (ii) 5¢°D (ill) StoD ? 
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d. What are (i) 2D (ii) >"D (iii) 2C11D? 


4.a. What is >"THIS' "IS' 100? 


b. Obtain the matrix below using > 
0) 
2 
2 


— — = 
woo 


c. Transform V47<«('JACK' 10)('PETER' 27) into 


JACK PETER 
10 27 


using only < > and axis qualification. 
5. If V is a non-empty vector, explain why the following two expressions which 
both extract the last item do not match: 


a t0V b. “14V 


6. If Mis 2 3916 what is the difference between 
a. +C1]M b. 14€1]M c. tef1]M d.r"c{1]M ? 


7. If M is a matrix, write the following expressions more briefly: 


a. 2 10"cpM _ b. (c2 1) 0M 


8. Make a name list (that is a vector of character vectors) of the names 
appearing below in ascending order of wealth: 


V48<('TRUMP' 8.1)( "GETTY 7.4) 


9. If Ais an array, what single primitive function is equivalent to 


(cT)>2(T<(ppA) p1)t4A ? 
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4.4 Empty Arrays and Fill Functions 


A language which admits empty arrays must address the problem of what each 
primitive function should do when presented with an empty array, that is an 
object with structure but no data. In such cases function execution in the ordi- 
nary sense of transforming data is not applicable and consequently each APL2 
interpreter must contain rules for providing the necessary padding characters. 
These rules are embodied in the so-called fill functions. Historically these have 
not been consistent across different APL2 interpreters. For scalar primitive 
functions F the result of F EA (EA = Empty Array) or EA1 F EA2 reflects a 
combination of prototype, shape and fill function subject to rank and length 
conformance. Here are some examples on IBM mainframe APL2: 


DISPLAY +0 2p¢13 


o ere i! 
| 10 0 O| 10 0 O| | 
Pd Lh | 
ee | 
DISPLAY +0 2pc‘*ABC'® 
rs 
o eo) Pe ist 
| 10 0 Oo| 10 O Of | 
ee ee eee | 
Le —$——_— 


DISPLAY T#T¢+0O 2pc'ABC’ 
es | 
o-— re | 
1 10 0 O| {0 O Of] | 
J nd Lt | 


Le—__ 


DISPLAY(O 2p¢13)40 2pc¢'"ABC* 


re. 
o->— -— | 
| 10 0 O| 10 O Ol | 
ee ee een | 


Le —_—_—_—_—_—__——— 


In APL2 the fill function of all scalar primitives with scalar arguments is a func- 
tion whose result is always zero even if the type of R is character. For non- 
simple arguments the fill function is applied to each item recursively until simple 
scalars are reached - this is consistent with the pervasive property of scalar 
primitive functions in preserving shape and depth in the absence of data. When 
one argument is scalar but non-empty and the other is empty, e.g. for 


2+OpcO O 
the fill function is applied to the prototype of the non-empty argument as one 


argument and the empty argument as the other, so that the result of the above 
expression is 
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DISPLAY 2+0pcO O 


a den 
| 10 OI | 
J Lot | 


The monadic and dyadic § functions are a special case since they are arith- 
metic but non-pervasive, and so what happens when each to them is applied is 
not dealt with by pervasion. Since F” is equivalent to defining a loop for F, it is 
desirable to maintain consistency of shape even when the loop is executed zero 
times, which is what happens when F™ is applied to an empty array. The fill 
functions in APL2 for monadic and dyadic @ are: 


CO] Z*MFF R CO] Z*L DFF R 
[1] Z+QtR C1] Ze((14ptR),1+p4L) pQR 


For example: 
4H" Opc2 3p0 


0 0 

0 0 

0 0 
B<«?3 2910 
C+?3 32100 
BHC 


0.06595 ~0.02702 
“0.05348 0.1279 
0.04424 ~0.03799 
DISPLAY (OpcB)$"OpcC 


| 
lo Ol | 
| 
| 


Non-scalar primitive functions have their results defined at the structure phase 
and so no separate fill functions are required, e.g. the results of 


DISPLAY pcO 370 


ro 
{O| 
Lod 
DISPLAY pc4 Sp'ABCDE' 


rey 
|O| 
Lv 


are not affected by the emptiness or otherwise of whatever is to the right of < 
nor by its type, and likewise 


"ABC'1<cO 3p0 
4 
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depends only on whether a match is found for the enclosed scalar, and not on 
whether or not it is empty. 


4.4.1 Identity Items and Identity Functions 


There is an important distinction between the concept of identity items of scalar 
dyadic functions which satisfy 


AF IDI «+> A (Right identity item) 
IDI FA <«> A (Left identity item) 


and identity functions which satisfy 


LF (IDF L) «> L (Right identity function) 
(IDF R) F R «> R (Left identity function) 


4.4.1.1 Identity Items 


A full set of identity items is given in the following table 
+ - x $¢ | |L fF * @®O ! A V €& § = BF > €£ WY 


0 0 1 1 0 M -M 141 none1 10 0 14 4 #14 0 QO - none 
LR R LR R IL LR LR R L LR LR L LLR R R R 


where L and R stand for left and right and M is the largest number in the 
machine. These items are obtainable as F/10. The reason is that 


(F/V) F (F/V1) «> F/V,V1 
is a fundamental property of pervasive functions and so setting v1 to 10 gives 
(F/V) F (F/10) ++ F/V 


4.4.1.2 Identity and Inverse Functions 


Fulfilling the left-identity-function identity above for a function such as p 
requires a data-dependent argument, viz. 


(pR)JpR «> R 


that is p is its own left identity function. Now take the function &. What left 
argument makes 


LQR «<> R ? 


The answer is tppR SO ipp is the identity function. A full list of identity func- 
tions is 
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Fn. Identity function L/R Restriction 
p eR L 

» ((°14¥pR),0)pc((' 1¥pR),0)pR LR 1SppeR 
® (~1¥pR)p0 L 

=) (14pR)p0 L 

Q 1ppR L 

> 10 L 

+ (ppR) pO L 

4 eR L 

~ 10 R 1=poeL 
a (i1tpR)°.,=1tpR R 1SppeL 


Identity functions should not be confused with mverse functions which are 
defined by 


L LIF L FR +> R (Left inverse function) 
(L F R) RIF R +? L (Right inverse function) 


The only scalar dyadic functions which possess inverse functions are 


+ - x + * ® = # 
Left - + @ * = Z 
Right - + x = F 4 


Exercises 4d 


1. What are 


a. x/2 3 0p0 
b. x/2 0 3p0 
Cc. x/e2 0 3p0 ? 


What difference does it make if the rightmost Os are replaced with 9s? 
2. What are 


a. *(010)4#0Opc2 390 
b. *H"Opc2 3p0 
Cc. #(¢3 4)p"Opce2 3p0 ? 


3. What are 


a. p/2 3 OpO 
b. p/Opc2 3p0 
C. e/OpcVpO~ where Vis any simple numeric vector ? 
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4. What is the value of F/Opc2 3p0 when F is: 


a. & b. > Cc. + d. + e+ f. , ? 


5. What are 

a. pt;,/Opc2 9p0 

b. p»/Opc2 9 9p0 

C. pt,/Opce2 9 9 9p0? 


What happens eventually as more 9s are added? 
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Summary of Functions used in Chapter 4 


Section 4.2 
SENTENCE 


Section 4.2.1 
VCAT 
PENCL 
ONES 


Exercises 4b 
DTBM 
INDEX 


Section 4.3.2.1 
TYPE 


builds a random sentence 


catenates matrices vertically 
descalarization with partial enclose 
obtains co-ordinates of 1s in a binary matrix 


deletes trailing blanks in each row of a matrix 
indices of rows in matrix containing given string 


type of an APL array 


5 
Using Operators 


5.1 The Role of Operators in APL2 


Although nested arrays are the most distinctive feature of APL2, operator 
extensions provide at least as great an advance. There are two aspects to oper- 
ator extension - first the provision of user-defined operators, and secondly the 
extension of existing operators to nested arrays and to user-defined functions 
and derived functions. These two features increase by a huge factor the expres- 
siveness of APL2 in describing programming ideas. 


In general if APL objects are the “nouns” of the language and functions the 
“verbs,” then operators are the “adverbs.” They direct how to apply or 
combine functions in ways which are common across a range of functions. 
From the earliest days of APL the adverbial aspect of functions was achieved 
by “embroidering” the function symbols with other symbols such as / and .. 
For example, +/V describes how to add the elements of the vector V, i.e. add 
“through” Vv, in the sense of inserting the function + into all the available spaces 
(one less than the number of elements in v) and evaluating the resulting 
expression. The insertion is a structural action and the consequent evaluation a 
functional one. After defining “reduce” to describe the adverbial concept of 
“through,” it makes sense to talk about “multiply reduce,” “divide reduce,” 
and so on. 


5.1.2 User-defined Operators 


The mechanics of creating a defined operator are similar to those for defining a 
function. Four independent choices are made, viz: 
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its name 

the number of arguments 

the number of operands 

whether or not it has explicit result 


As a general principle a user-defined operator should be constructed when 
several functions are handled in the same way. A simple example is COM which 
reverses or “commutes” the role of the left and right arguments. 


CO] Z*L(P COM)R 
C1] Z*R P L 


2 -COM 5 
3 


An operator has either one or two operands which are denoted here by P (left 
operand) and Q (right operand - if present). P COM is the derived function and 
L and R are its left and right arguments. The binding of the operator COM with 
the function minus is stronger than that between the derived function and the 
two arguments, and so the above expression should be read in the three 
“chunks” which are suggested by the spaces. 

Tracing function execution is another situation in which different dyadic func- 
tions are handled in the same way. The operator in this case is called SEE. 
[0] 2Z+*L(P SEE)R 
C1] L ‘f° R *=" Z+L PR 


-SEE is the same as - except that an explicit message is issued for every minus 
execution. 


-~SEE/14 
3 £42= "1 
2f 1: 3 
1£3 = “2 


Operators can be be used in conjunction, e.g. 
-SEE COM/14 


Since -SEE is the same as minus except for messages it follows that -SEE COM 
is the Same as -COM except for messages. The order of operators is important - 
in the above traces f denotes - whereas in the next sequence f denotes -COM. 


-COM SEE/14 


i= £ 
| ie 
-_— 
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Illustration : Moving functions along an axis 


Reduction applied to the non-commutative functions subtract and divide 
produces alternating sums and products respectively. This is counter-intuitive 
when viewed with eyes conditioned by ordinary arithmetic in that -/6 2 3 
looks as though it means 6-2-3, 1.e. 1 rather than 7. The latter is indeed a rea- 
sonable variant of subtraction - call it subtraction “along” a vector - and the 
following operator describes recursively the process for a general scalar dyadic 
function P, which could be either primitive or user-defined: 


CO] 2Z«C(P ALONG)R 
[1] +L1 IF 1=p,R a branch if singleton or scalar 


[2] +0 Z+((P ALONG)~1+¥R)PtOR a apply P once at right hand end of R 
C3] L1:Z¢«4R 


(-ALONG) 14 
“8 

+(+ALONG) 14 
24 


This operator can be further generalized by specifying an axis Q as a second 
operand. 


[0] Z+(P Along Q)R 

C1] +L1 IF 1=Q0pR 

[2] 70 Z¢((P Along Q) 1+([QJRIP 1*#(QIJIOR 
C3] L1:Z«1*CQJIR 


(-Along 2)2 3916 
~4 
~7 
The result of either function ALONG or Along, unlike that of reduce, has in 
general the same rank as its argument. 


The second program lines of the functions in the above illustration exhibit a 
technique which is widely used in the remainder of this book, particularly in 
recursive functions. It consists of using the characters +0 Z<«... to compress 
assignment and branching into a single line. The effect of this is to make an 
intermediate nested object of depth one greater than the object of the assign- 
ment, and then force an implicit first for the branch. 
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Illustration : Table Building 


Another straightforward example of a simple operator is the outer product of a 
vector V with itself. 


[0] Z+«(P TABLE)R 
[1] Z+«Re.P R 


xTABLE 112 


is thus the ordinary school multiplication table. 


A common property of the operators ALONG, TABLE, and COM is that they 
can be applied across a set of functions. If an operator were relevant to only one 
function, it would be preferable to write a user-defined function. 

Of the operands P and Q, either or both may be functions or arrays, but 
usually at least one is a function. The derived function then takes arguments L 
and R. If Q and R are both arrays as in the case of the function ALONG then 
parentheses may be necessary to show where Q stops and R begins. 

A monadic function has only a right argument. A monadic operator on the 
Other hand has only a left operand. Non-ambiguity of syntax demands that 
operators follow the opposite rule to that for functions, that is they are executed 
from left to right. Thus in the expression 


-COM ALONG 1,14 
2 


the operator COM is executed before the operator ALONG. More specifically the 
derived function -COM is constructed and then passed as an operand to ALONG 
to obtain the derived function (-COM) ALONG 1. Applying this derived func- 
tion to the right argument, the successive execution steps are : 


1(¢-COM)2 = 1 
1(-COM)3 = 2 
2(-COM)4 = 2 


giving 2 as the final answer. The above expression also raises the issue of where 
the right operand stops and the right argument begins, and under what condi- 
tions explicit parentheses are necessary. The precise rules for determining such 
matters are called the binding rules and they are discussed in the next Section. 
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5.2 Binding 


For expressions which contain only functions and variables the evaluation rule 
known as the “right-to-left evaluation” rule applies, viz: 


The rightmost function whose arguments are available is evaluated first. 


Including an operator in an expression requires further rules. The expression 
-COM ALONG 1,14 


discussed in the previous Section raised the issue of whether 1 is a right operand 
to ALONG or the left argument to the function catenate. At first glance the 
comma appears to represent the catenation 1,14 . However 1 is not a left 
argument to catenate because it has a higher priority as right operand to the 
Operator ALONG. The 1 binds more strongly to the operator as an operand than 
it does as an argument to a function so that the expression is equivalent to 


(-COM ALONG 1) 14 


This example demonstrates that in addition to the right-to-left evaluation rule, a 
set of binding strengths between operators, functions and other syntactic symbols 
needs to be defined. Binding rules define how variables and symbols group for 
evaluation. For any three objects A B C the following binding table determines 
whether B associates with A or C, that is whether A B C means (A B)C orA 
(BC). 


Binding Strength Object Binds to- 
(Strongest) 1. Bracket the item on its left 
2. Assignment the name on its left 
3. Operator its right operand 
4. Vector item the items on either side 
5. Operator its left operand 
6. Function its left argument 
7. Function its right argument 


(Weakest) 8. Assignment whatever is to the right 


As an example of how to use the table consider the problem of deciding whether 
the expression +.x/A means (+.x)/A or +.(x/)A. The binding between . 
and x (right operand binding) is stronger than that between x and / (left 
operand binding) and so the inner product is evaluated before the reduction. 
The entire expression thus means (+.x)/A and not +.(x/)A. The application 
of the binding rules to expressions containing two or more operators can be 
expressed more generally as 


Operators have long left scope and short right scope whereas functions have 
long right scope and short left scope. 
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Illustration : Implications of Binding 


a. Consider 


X+10 
5+X¢2 
7 


The binding of X to « in the second line is stronger than that to +, otherwise the 
value of the result would have been 15. 


b. The expression 
24 6[2)] 
results in a RANK ERROR since the bracket binds more strongly to 6 than does 6 


to the vector 2 4. To achieve what is presumably the desired indexing the 
binding strengths must be overruled with parentheses: 


(2 4 6)[2] 


c. Define 


[0] Z+(P RED Q)R 
C1] 2Z+«P/([Q]R 


+RED 2 3 2716 
3 7 11 


is equivalent to 


(+RED 2)3 2916 
3 7 11 


since the binding of RED to its right operand 2 is stronger than the binding of 2 
as an item of the vector 2 3 2. 


Operators may include other operators in their definition, e.g. reduction from 
the left is given by 


[CO] Z+(P LRED Q)R 
C1) Z*P COM/[Q]OR 


(-LRED 2)2 3p16 
ee / 
LRED is similar to ALONG, but mimics reduction more closely than ALONG by 
reducing rank. Although functions derived from user-defined operators may be 
ambi-valent (see Section 5.3.2), operators themselves are not, so an attempt to 
use LRED monadically results in e.g.: 
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(-LRED)2 3916 

SYNTAX ERROR 
(-LRED)2 3916 
A A 


illustration : Hexadecimal Arithmetic 


The operator HEX transforms arithmetic functions into their equivalents for per- 
forming hexadecimal arithmetic. 


[0] Z+L(P HEX)R ea L and R are character strings 
C1] Z+DTH(HTD L)P HID R A representing hex numbers 


The functions DTH and HTD convert decimal to hex and hex to decimal respec- 
tively. 


<n Z+HTD R a Ris a hex character vector 
C1] 2161 1+HSTRiR 


[0] VZ+DTH R a Ris a numeric array 
C1] Z*HSTR(1+((0L1+160@171/,R)916) TRI 


where HSTR is the character string '0123456789ABCDEF'. Here are some 
examples: 


‘AV'+HEX'4F! 


FO 
‘A1'xHEX'4F' 
31AF 
+HEX/'F3° '8* ‘2° 
FD 
°12'+HEX” 'F3' ‘8! a 1 added to X’F3’, 2 added to 8 
F4 A 


(c¢'12')+HEX”'F3"' '8*' 9» X’12’ added to both X’F3’ and 8 
10S 1A 


Comparison of the last two examples shows how enclose is necessary in order to 
have '12' interpreted as a single hex integer, with subsequent scalar expansion 
(see Section 2.1.2). This suggests that the operator HEX be extended to HEXE 
(standing for HEX each) thus: 


[0] Z*L(P HEXE)R 
C1) Z*DTH" (HTD"L)P HTD'R 


"A1' ‘'12'+HEXE ‘4F°" 'F3' 
FO 105 

(c'12')+HEXE ‘'F3' ‘8! 
105 1A 
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Illustration : An Operator for Padding Matrix Catenations 


This illustration shows how variations on text-joining with regard to axis and 
justification can conveniently be brought together by defining an operator. The 
technique can be compared with VCAT given in Section 4.2.1. 


[0] Z*L(P NEXT Q)R3T3U 
C1] (L R)«MATRIFY"L R 
[2] Z*Qx(pL)I[pR 

[C3] T+Z+( pL) xU«~|Q 

C4) U*+Z+UxpR 

C5] Z2«(T4+L),CPJU4R 


ensure both arguments are matrices 

Z is used as a local variable ... 

... to calculate left arguments for take ... 
... prior to catenation 


D> DD DB 


[CO] Z*MATRIFY R 
C1] Z+(~241 1,pR)eR 


Neither operand of NEXT is a function, so effectively NEXT is a function with 
four arguments. The left operand P is the axis qualifier for catenation and the 
right operand Q is a code which determines in which direction (if any) to apply 
padding in order to make the smaller dimension match the larger. Its domain is 
“1 0 1; 1 means pad + or +, ~1 means pad + or «, O means don’t pad. A 
code of O in the Pth. item of Q can give rise to potential LENGTH ERRORS. A 
few examples should make the operation clear. 


DISPLAY"M51 M52 
ree OR 
¥BREAD| ¥+MAN| 


|FRUIT| |CANI 
LJ |EAT| 


Lend 


DISPLAY” (M51(1 NEXT(O 1))M52) (M51(1 NEXT(O ~1))M52) 


res ee es 
¥BREAD| 4BREAD| 
|FRUIT| |FRUIT| 


|MAN | | MAN| 
ICAN | | CANI 
[EAT | | EAT| 
es ee 


DISPLAY” (M51(2 NEXT(1 ~1))M52) (M51(2 NEXT(™1 0))M52) 


res Oe es 
¥BREAD MAN| ¥4 MAN | 
|FRUIT CAN| |BREADCAN| 
| EAT| |FRUITEAT| 
en i, ee 


DISPLAY” (M51(2 NEXT(1 0))M52) (M51(2 NEXT(' 1 ~1))M52) 


es ne es | 
¥BREADMAN| ¥4 MAN | 
| FRUITCAN | |BREAD CAN| 


| EAT| |FRUIT EAT| 
ce | 
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Exercises 5a 


1. The expression 
T/ipT+((N-1)p1)€2</V 


in which V is a simple numeric vector and N a positive integer returns the indices 
in V of the starting points of all strictly increasing subsequences of length N, e.g. 


V4e234345227 
N+2 
T/ipT+*((N-1)p1)€2</V 

12458 


Write an operator CONSEC which allows the determination of the equivalent 
information for 


a. Strictly increasing sequences; 

b. strictly decreasing sequences; 

c. non-decreasing sequences; 

d. non-increasing sequences; 

e. sequences of equal values; 

f. sequences of values in which every item differs from its neighbor. 


2. a. Write an operator BASE which performs arithmetic functions P on scalar 
numeric integers which are to be interpreted as integers in base Q, e.g. 


16+BASE 7 23 
42 
1111#BASE 2 11 
101 


b. How would you extend this to process integer arrays, so that you could for 
example divide the two by two array 


1111 110 
10010 100001 


by 11 in base 2. 


3. Describe the difference between 


[CO] Z*L ROOT R 
C1] Z2¢RxiL 


and 


[0] Z¢+(P ROOTOP)R 
C1] ZtRx?P 


In what circumstance might it be desirable to use ROOTOP rather than ROOT? 
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4. With COM and SEE as defined above, which if any of the following 
expressions are necessarily identical for a general numeric vector v? 


a.-SEE/V b.-SEE COM/V_ c.-COM SEE/V 
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5.3 Matching Function Arguments 


5.3.1 Function Composition 


Composition means the successive application of two functions. For example 
consider 


V¥12<12(13014 15))(16 17) 
The composition (p¢) applied to V means apply e to V followed by p, and so is 
rendered by 


péV12 
6 


The each of this composition is given by first applying « to each item of V: 


€°V12 
12 131415 16 17 


and then p~ to the result: 


o"E"V12 
1 #3 2 


Similarly the each of the composition (+/e) is given by 


+/"éE°V12 
12 48 33 


The general rule for applying each to compositions of monadic functions is: 
(PQ)" «+ P"Q" 


For dyadic function compositions a left argument has to be allocated to one of 
the two component functions. Sometimes only one allocation of the left argu- 
ment is sensible. For example consider the composition Ao: 

"ABC 'AO'CAT' 
23 1 

"XYZ'AO'AXE' 
21 3 


2 3 1and2 1 3 are the grade-up vectors with the alphabets "ABC’ and 
"XYZ" respectively of the words 'TAC' and 'EXA'. In this case the rule stated 
above may be applied, that is (A) is given by 


"ABC' ‘XYZ'A OO” 'CAT' ‘AXE' 
231 21 3 


and the left argument applies to the leftmost of the two functions in the compo- 
sition. 

Where the functions P and Q both have possible dyadic meanings, ambiguity 
can arise as to whether a left argument applies to P or Q. For example if the 
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composition €1 is applied with left argument (13) and right argument of 2 the 
left argument can relate to either the e or the 1, thus: 


(13)€12 
110 

€(13)12 
2 


In such cases composition must be defined explicitly via a defined operator. For 
example: 


[0] Z+*L(P COMP1 Q)R 
C1] ZL PQR 


which in some APL systems is available as a primitive operator +. 
(P COMP1 Q)” is equivalent to P"Q”, e.g. 


ABC’ "XYZ*(ACOMP10)""CAT* ‘AXE* 
231 21 3 


Explicitly defining the operator draws attention to the alternative composition 
operator in which the left argument applies to the rightmost function: 


[0] Z+L(P COMP2 Q)R 
[1] Z«PLQR 


examples of which are: 


"ABC’ ‘*XYZ*(QCOMP2A)"'CAT* ‘AXE’ 
312 312 


1 2CACOMP20)°(2 3 4)(5 6 7) 
312 23 1 


5.3.2 Ambi-valency 


All functions in APL2 are potentially ambi-valent and this is true also of 
derived functions. Consequently when writing an operator whose derived func- 
tions may be monadic or dyadic it is normal to write it in two parts, one to deal 
with the monadic case and the other with the dyadic case. 

In Section 5.1.2 the operator SEE was defined to obtain traces for monadic 
processes. This can be made dyadic by 


CO] Z*L(P TRACE)R 


C1] *L1 IF O#QNC'L' a branch if dyadic 
[2] »O D¢e'f' R "=" ZeP R A monadic 
C3] Lis:L ‘f" R *=* ZL PR A dyadic 


On IBM systems an alternative to the test in line 1 involves event handling thus: 
C1) ‘*+L1°"OEA‘L' 


Examples: 
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-TRACE/14 
3 f 4= “1 
2f = 1: 3 
1f£3 = "2 


The order of the operators reduce and TRACE is important: 


-/TRACE 14 
f 1234 23 “2 
“2 


The trace which was given step by step earlier can now be achieved by 


(-COM TRACE Along 1)14 
= 1 
= 2 


2 


5.4 Recursion with Functions and Operators 


A recursive operation is one which is defined in terms of itself. A nested array 
1S an array whose items are themselves arrays and hence is an inherently recur- 
Sive Structure. Using the advanced APL2 features is thus likely to bring about a 
shift in programming style towards recursive methods. In first-generation APL 
reduction of a function F applied to a vector can be described as a process 
whereby F is slotted in between each of the items of the vector thus: 


VC01] F V(C2] F V(3)] F ... 


following which right to left execution takes place in the usual way. This is the 
iterative approach to the situation. Another equally valid way of describing 
reduction is to define it as 


(4V) F CF/1+V) 


which has the merit of requiring only a description of how the first item behaves 
in relation to the rest, together with a (usually obvious) stopping rule to deal 
with the simplest case. The intermediate working is thus completely delegated to 
a computer. For example +/ can be described as 


CO] Z2*SUM R 

C1] »+L1 IF 1=p,R a , ensures function works for scalar R 
[2] 20 Z¢(4R)+SUM 14R 

C3] L1:Z¢«R 


Now consider the problem alluded to in Section 1.4.2 of defining a function 
for the path to the first occurrence of a given simple scalar L in an indefinitely 
deeply nested vector of vectors R. This is a recursive problem calling for a recur- 
sive solution: 
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CO] Z2¢L PATH R;T 
C1]  %L1 IF 1s<=R 
[2] >O0 Z«10 

C3] L1:T«(Le°e"R)11 
C4) Z2¢*T,L PATH TOR 


a branch to L1 if R not a simple scalar 
a if it is, stop and return empty vector 
a identify subtree T at current depth 

a ..then find path within T 


V¥12<12(013(014 15))(16 17) 


14 PATH V12 
221 


If L does not belong to R, an error 1s reported. One way to deal with this is to 
have PATH return an empty vector in this case - this is achieved by adding 
another condition to line 1: 


C1] 7%L1 IF A/(LeeR),1S=R 


A drawback to this solution is that it does not deal with the “level-breaker” case 
described at the end of Section 1.3.1. 


V+" ABC’ (13) 


3 PATH V 
RANK ERROR 
PATH[3] L1:Te(Le"e"R) 11 
A A 


This situation is detected when R is a non-simple scalar so an additional test 
must be added: 


C0] Z¢*L Path R;T 

C1) *L1 IFa/(Lé€eR),1S=R 

C2] >0 Z<«10 

C3] L1:*L2 IF(10)=pR a go to L2 if R scalar 

C4] T¢(Le"e"R)11 

C5] >O Z+«T,L Path TR 

C6] L2:Z«(c10),L PathtR a .. and return the level-breaker 


DISPLAY 2 Path V 


re—r oon 71 
| re, | 
1 2 101 21 
J bt | 
Le ————_______—_ 


The following recursive shell is one which will be used frequently in the 
remainder of this text: 


VZ«+L FN R 
C1] »>L1 IF ... a stopping condition 
[2] >O Z+..FN.. a recursive expression 
C3] L1:2Z¢... a stopping action 


An example of an operator developed using this shell is SIMPLE in which the 
function P is applied recursively to each item of R until simple arguments are 
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reached. This has the effect of making non-pervasive functions “penetrate” deep 
objects. 


[0] Z+*L(P SIMPLE)R 

[1]  %L1 IF 2>=R 

[2] +0 Z«L(P SIMPLE) “R 
[3] Li:Z+L PR 


V¥12€12013014 15))(016 17) 


12 12 13 13 14 15 16 17 


Read a line such as the above as an extension of 2pR, 1.e. the primary subdivi- 
sion of the expression is 


2 (pSIMPLE) V12 


with pSIMPLE being thought of as “an enhanced version of p.” This, like COM in 
Section 5.1.2, demonstrates that the binding of operators to functions is stronger 
than that of functions to arguments, or in simple terms operators are resolved 
before functions. 

The recursive shell given above indicates the general organization of a recur- 
Sive Operation within which certain requirements must be met for it to be a valid 
recursive operation. 

First, the definition must be explicit for some value or condition of the argu- 
ment. This condition is the stopping condition, e.g. 2>=R in line 1 of SIMPLE. 
If there is not at least one value or condition for which the definition is explicit 
the recursive operation is circular and will never terminate. 

Secondly, the recursive operation must call itself with a modified argument 
which approaches a stopping value or condition and which it reaches in a finite 
number of steps. In the operator SIMPLE the recursive expression in line 2 
achieves this through the each operator which causes the argument of the 
derived function to be applied to data one level down in the structure of R. A 
recursive operation which does not modify its argument in the course of a recur- 
Sive call is called regressive and provided at least one recursive call is made it is 
also non-terminating. 

In recursive operations the distinction between the actions of local and global 
variables is very important. Consider the following regressive recursive function: 
[0] Z+FN R 
Ci] 21 
C2] +0 IF O2I<I-1 
[3] 2Z+¢«Z,FN R 


which terminates only when a system limit such as WS FULL is encountered or 
an attention interrupt is issued. Assuming that a value for the global variable I 
was set before the first call, the value of I on termination indicates how many 
recursive calls took place. However if the value of I were set within the func- 
tion e.g. by 


[1.1] I+«100 
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then the value of I would be reset on every call. If a temporary variable is used 
for an intermediate calculation at a specific level within a recursive function it 
must be localized as T is in PATH, otherwise only one copy of T would exist no 
matter how great the depth of the recursive calls. 


Illustration : Selective Enlist 


A selective enlist function performs the enlist process in a gradual way and stops 
when depth gets to a prescribed level L. It provides another example of a func- 
tion which uses the recursive shell. 


[0] 2Z+¢L ENLIST R a L is an non-negative integer, R an array 
[1] 2*L1 IF L2=R a stop at target depth 

[2] 70 Z+t+,/L ENLIST’R a if not go one level lower 

[3] L1:Z+«cR a ensure that simple non-scalars are enclosed 


The principle is that for vectors O ENLIST R is simple, and provided that the 
items of R are themselves vectors at every level O ENLIST R is equivalent to 
€R. Increasing values of L give progressively “gentler” enlists in the sense that 
more levels of structure are preserved. 

The function ENLIST involves some sophisticated coding in line [2]. The 
Strategy is that if the depth of the object is greater than the target, each item is 
Separately ENLISTed and the results catenated; hence the ,/. Catenate 
reduction, ,/, requires a final enclosure in order to ensure rank reduction (this 
is discussed in more detail in Section 5.5.2), hence the necessity for + prior to 
»/. If L is greater than or equal to =R, ENLIST adds one additional level of 
enclosure. 

Here is an example of the use of selective enlist applied to a tree of character 
strings representing the names of disk files and directories: 

VS1<'DIRI'C°F1® "DIR2Z'C'F2* *F3°) *DIR3S'Cc'F4®)) 
DISPLAY V51 
Ol 
nn a | 
IDIRA | pes Re OOo sor 
Lt | |F1] IDIR2] | po peo | IDIR3I | 
J Led LJ} |F2] IF3} | +4 | 
| jp CY Loy | p Ceo 
| L 
L 


| 
| 
| 
| 
| 
| Le $$} 
| 


€ 


é€Vv51 
DIR1F1DIR2F2F3DIR3F4 
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DISPLAY 1 ENLIST V51 
I 
I sere De aces Oe neers Ok gee dee 
| IDIR1] IF1] |DIR2] IF2! IF3] |DIR3| 
i a ee fe Oy es OG 


DISPLAY 2 ENLIST VS51 
Oa 
a agenesis 0 gees On ees Oe es Oe | 

| |DIR1| IF1] |IDIR2I | pea pe | IDIR3I | | 
ped bd LH | [F2] irs} | eH | IFS | 
| ped to | | | 
| Le ——————______—} Le———____| 
be——— 


Exercises 5b 


1. Construct recursive functions (a) PRODUCT and (b) JOIN which describe x/ 
and ,/ in a manner akin to SUM in Section 5.4. 


2. The function Path in Section 5.4 requires that the items of its right argument 
be vectors. What changes must be made so that the items of R may be of any 
rank? 


3. Use the recursive shell described in Section 5.4 to write a function CHALL 
which replaces aff occurrences of L[1] in a vector R with L[2]. (Use the func- 
tion CHANGE of Section 1.4.2.) 


4. A dyadic function P with header Z+L P Rcan be thought of as combining 
with one of its arguments, say R, to provide a new monadic function (P R) 
which is applied to the other argument, e.g. *2 can be thought of as the 
monadic function “square.” Equally (L P) can be thought of as a monadic 
function applied to R so that 3* means “raise 3 to the power.” Applying such 
functions repeatedly, say Q times, is conveniently handled by defining opera- 
tors with operands P and Q. 


a. Write an operator POWER1 whose header is 
[0] 2Z+L(P POWER1 Q)R 
and which causes P R to be applied Q times to L with the intermediate result 


being fed back each time. For example if P is * and R is 2,1.5(*POWER1 3)2 
means ((1.57)*)?. 
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b. Write an operator POWER2 with a similar header which causes the function 
L P to be applied Q times to R with feedback so that 1.5(*POWER2 3)2 means 
1.5 to the power(1.5 to the power 1.5*). Assuming convergence, POWER2 pro- 
vides an iterative solution of the algebraic equation y =L Py. 


c. Use POWER2 to find a solution of the equation y = cos(y). Take a start 
value of 1 and investigate the number of iterations required for convergence to 
Six significant figures. 


d. A cryptographer defines the 26 upper-case letters of the alphabet as ALF 
and uses an anagram of ALF, e.g. ALF[26?26], as a code replacement string L 
to encrypt a message R. The function he uses to do this is 


mee Z*L CODIFY R 
C1] Z*LCALFiR] 


To make his encryption more secure he repeatedly encrypts the encrypted word. 
Which of POWER1 and POWER2 above should he use in order to encrypt a source 
message four times in succession? How does the receiver then decode it? 


5. To “polish” a matrix means to subtract a sequence of values, say the row 
means, one from every row, and then another sequence, say the column means, 
one from every column. Write an operator POLISH which achieves this, and use 
it to obtain the mean polish and also the median polish of the matrix 


Oo 6 6 
4 O 2 


(The median of a vector R is defined as .5x+/R[[.5xO 1+pR*RCAR]] ) 
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5.5 Extensions to First-generation APL Operators 


5.5.1 Reduction 


A general principle of reduction is that it reduces rank. It does not reduce depth. 
With scalar dyadic functions this is an entirely natural rule, e.g. +/2 2 2 trans- 
forms a vector to a scalar and and +/2 2p14 transforms a matrix to a vector. 
However when reduction is applied to non-pervasive functions, adjustments to 
depth must sometimes be made in order to maintain the rank-reduction rule. 
The functions p and , have the property of increasing rank, e.g. starting with 
two scalars 2 and 4 both 2p4 and 2,4 give results which are vectors. In order 
that p/2 2 2 and ,/2 2 2 should produce scalars an extra level of nesting 
must be provided. 

As noted in Section 5.4 F-reduction can be described by inserting the func- 
tion F into all the available spaces of V[1] V[2]  ... and evaluating the 
resulting expression. So what changes must be made to the first-generation 
APL rule to deal with this state of affairs? Since indexing provides cross-sections 
of arrays, V£1] is not the first item of v, rather it is a container for the first item 
which can be opened by >. Thus it is F” rather than F which is inserted into the 
spaces of V[1] V{2] .... At the function phase the each rule (see Section 
4.1) applies. If the items are scalars or if F is pervasive the each makes no dif- 
ference, and so there is no inconsistency with the first-generation APL view of 
reduction. 

Alternatively one can think in terms of pick which penetrates the items, so 
that F-reduction is obtained by inserting F into the spaces of 


(1>V) (2>V) (3>V) .... 


and applying a final enclosure. 


lilustration : Reduction applied to matrix multiplication 


Consider the sequence of algebraic matrix multiplications which is given by 
+.x/A BC 


where A, B and C are compatible matrices. One way to determine the exact 
result of this expression is to consider a recursive definition of the derived func- 
tion DF arising from applying reduction to +. (cf. SUM in Section 5.4): 

[Oj Z+DF R 

C1] *L1 IF 1=pR 

C2) *O Zec(4*R)+.x DF 14R 

C3] Li:Z¢ectR 


A B Cis a nested vector, comprising cells which contain matrices. The function 
+.x can properly be applied only to items, that is the contents of cells, hence the 
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depth reducing + and > in line 2. After executing the +.x the resulting matrix 
occupies a single cell, hence the enclosure in line 2. The encloses which appear 
immediately to the right of the assignment statement in both lines 2 and 3 show 
that the result of the +. reduction is a scalar of depth two. In order to achieve 
the mathematical matrix product ABC which is a depth-one matrix it is neces- 
sary to apply either > or +. The expressions 


>+.x/A BC and +t+.x/A BC 


have equivalent output for the reasons given in the Section 4.3.4. Another way 
of looking at the role of ¢ and > in DF is that what reduction reduces is rank. 
pA B C is 3, and has rank one since p always returns a vector, and so the result 
of the +.x reduction must be a scalar, namely the enclose of the solution matrix. 
Eliding the references to R in the recursive part (line 2) gives 


2¢ec,.2DF 


which is another occurrence of the « > sequence observed in the each rule. 


5.5.2 Reduction with Rank Greater than one 


If reduction is applied to objects of rank two, enclosure takes place along the 
last dimension and the vector rule for reduction is applied to each item of the 
result. Enclosure along the last axis gives a row vector whose items are the rows 
of the array. The final result is the vector whose items are the plus reductions of 
each of them, e.g. 
DISPLAY +/2 3p1i6 

Pe 

16 15] 

Lo———I 


Now consider the reductions of non-pervasive functions such as p and ». 
DISPLAY ;/2 3p16 


DISPLAY ;/2 2p‘ABCD’ 
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DISPLAY >",/°c{2]2 3p16 


»/A is the same as ¢[2]A for simple arrays A. Contrast this with 


DISPLAY ;,/°2 2p'‘ABCD' 
res 
+ AB | 


|CD | 
LJ 


The each makes a scalar function from ;,/, and so following the discussion in 
Section 4.1.1 ,;/ is applied to the four character scalars separately, and the 
result is a simple two by two matrix. 

In the next example enclosure again gives two row vectors: 


DISPLAY p/2 2pi4 
pe 
lr ore i! 
| 121 14 4 41 | 
J dred Ln | 


Le———_______J 


and the result is (1p2)(3p4). The principle, formally defined as 
F/A «> 2°F/“c{ppA] 


extends in a natural way to arrays of higher dimension: 


DISPLAY p/2 2 2018 
| 
4 orm re | 
| [2l 14 4 4| | 
j ld Ly —_____ | 
l eee OPO isd! 
| 16666 6] 18 8 8 8 8 8 8] | 
poe dL 
L 


——— 


In the above example the principles of rank reduction apply and the result is a 
two by two matrix. Enclosure along the last dimension gives a two by two struc- 
ture of row vectors, and applying p/ to each gives 


(1p2) (3p4) 
(5p6) (78) 


A similar argument applies with catenate in the next example: 
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DISPLAY ,/2 2 2p'ABCDEFGH' 
v | 
| | 
| | 
in deen Ee eee | 
| | 
| | 
L 


the steps of which can be broken down as: 
DISPLAY >",/°¢[3]2 2 2p‘ABCDEFGH' 


5.5.3 Scan 


Scan defines an array of reductions, and informally therefore preserves the rank 
which reduction reduces. For example 


Vet+.x\M1 M2 M3 
for compatible matrices M1, M2 and M3 is a depth two vector of matrices 
(M1) (4+.x/M1 M2) (4+.x/M1 M2 M3) 


Le. VI1J=¢eM1, VI2J=ct+.x/M1 M2, V[3]=ct+.x/M1 M2 M3. Because V is 
a vector, *V and >V are not equivalent in this case. Both bring about depth 
reduction but * returns the matrix M1, whereas > returns a rank three depth 
one array whose planes are M1, (M1+.xM2), and (M1+.xM2+.xM3) respec- 
tively, possibly padded with os. 


lilustration : Co-ordinates of Spirals 


The initial point of a spiral drawn as a two dimensional graph using Cartesian 
co-ordinates and O as origin is taken to be P(0,1). A function SPIRAL defines 
four new points which are generated by rotating OP through an angle of R anti- 
clockwise degrees, and stretching it by a factor L. The result of SPIRAL is a 
matrix, each row of which is the co-ordinates of a point on the spiral. The aux- 
iliary function ASPIRAL generates in its second line the rotation matrix M: 


cos @ sin @ 
-sin @ cos @ 
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for which V+.xM gives the co-ordinates of the result of rotating the point with 
co-ordinates V through an angle 6 


[0] Z+L SPIRAL R a L is stretch factor, R an angle in degrees 
C1] Z#2+.x\(cO 1),49¢L ASPIRALOR:180 


[0] 2¢L ASPIRAL R3;S;C 

C1] (S C)«1 20R a S and C are sin and cos 

C2] Z*Lx2 2pC S(-S)C a Z 1s the transformation matrix 
to move to the next point 
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0 1 

“4.414 1.414 

“4 0 

-5.657 ~5.657 
0 —16 


Illustration : Scans with Binary Arguments 


With the exception of circle the scans of the scalar dyadic functions have some 
interesting properties. A useful binary matrix for demonstrating these is con- 
structed by 


M53¢(892)T15,(6p51 43),113 


M53 
00000000 
0000000 1 
0111111 1 
0101010 1 
1010101 0 
10000000 
1111111 0 
111431414141 «4 


A better visual way of representing this matrix is to represent the Os with dots 
and the 1s with asterisks: 


".*°C14+M53 ] 


coe ee ee X 


Kaa KKK 
ok, KKLX 
kee K, 
Keecccves 
kkk II, 
kk kkk kkk 


Here are the scans of the six relational and four logical primitive functions 
applied to this matrix: 
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=\ <\ <\ 2\ >\ 
ok KKK ec ceccces okKkKKKKK ok KKH eo ccccce 
oX eK Kee cove ee ek oa kkKKKKKK o*% KK. coc cccece 
ecco ccee oKeeccee okKkKK KKK a ee a eoccoccce 
oo kk, KK oXeccvee okKaKKKKKK coe cccce wcrc ccces 
Kee KK, LX Keccecce Ke KKKKKK KkKKKKKK KkkeKKKKK 
a a, a Keccccvce Ke KKKKKK KkKKKKKK KkKeKKKKK 
KKKKKKK, Kercccecece KeKKKKK, KkKK KKK KKK LK 
KeKKKKKK Keeccecvce KaKKKKKK KkKKKKKK a 2, a 
#\ v\ A\ ¥\ a\ 
co eevcce eo cceces ec ceccce ok KKK oKaKKK KKK 
cece re eX co eee ee® coe eccces ok XK. okXkKK KKK 
KKK oKKKKKKK ecco eoee oo KKKKKK oKKKKKKK 
okKL KK, oKKKKKKK ecccccee oo KMKKKKK ao KKKKKKK 
aK, KK Kk K KKK KK Keccceee Here veees HK ee cceoe 
KkKKKKKKK KaeKKKKKK Kercccecce Kecccccee KK cece. 
+ 2 ae KKeKKKKKK KkKkKKKK, Keccccece + a Se, Se 
KKK LK, KkKKKKKK KaKKKKKKK Kerccccce a, a, a aN 


There are four scans which between them have the greatest practical use when 
applied to binary vectors. Subject to the universal rule that scan leaves the first 
item unchanged, the behavior of these scans can be summarized: 


v\ : detects the first 1 and switches all following bits to 1 
A\ : detects the first 0 and switches all following bits to 0 
<\ : detects the first 1 and switches all following bits to 0 
<\ : detects the first 0 and switches all following bits to 1 


Illustration : Delete leading blanks from a character vector 


This can be achieved by either of two expressions, viz: 
C(v\' '=CV)/CV 


or 
(~A\' *#CV)/CV 


Illustration : Display comments only on an APL line 


This can also be achieved by either of two expressions, viz: 
(v\'a'=LINE) /LINE 


or 


(~v\'a* #4LINE) /LINE 
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illustration : Remove first occurrence only 
(a) character from a character vector. 


To remove the first occurrence only of X from a character vector use either of 
the two expressions: 


(s\'X'#CV)/CV 


or 


(~<\'X'=CV)/CV 
(b) word from a sentence. 


Define the sentence as a vector of character vectors (words): 
V52<¢<"VERMONT' ‘IN* ‘THE' ‘THE’ ‘FALL' 


The first occurrence of THE can be removed by either of 
(S\~V52="c'THE')/V52 


or 


(~<\V52="c'THE')/V52 


The above illustrations exhibit a duality inherent in the scans listed above. In 
particular the last two show that the dual of < is < and not > as intuition might 
suggest. Another way of describing the behavior of the four scans in a concise 
way is by the following table: 


Q-continuation 1-continuation 


Q-detector A < 
1-detector < Vv 


The functions a and v down the leading diagonal have the property of 
idempotency, that is 


A <«> AAA and A <> AVA 


Consider the functions which are the “not”s of the functions in the above table. 
The behavior of their scans depends on whether the first bit is 1 or 0, and their 
effect is either that of an “alternator,” that is a function which takes a series of 
uniform bits and transforms it into an alternating sequence of Is and Os, or a 
“sweeper,” that is a function which makes all bits alike. 

For first bit = 1 the following table applies: 
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0-continuation l-continuation 


Alternators > wv 
Sweepers A 2 


If the first bit is 0 the roles of alternator/sweeper are reversed. The functions 
down the non-leading diagonal of this table are cyclic of order two, that is 


A «> A2>ADA and A «> A>A>A 


The functions = and # are also alternators but are not dependent on the first 
bit. Instead they have the effect of doubling the length of the subsequences 
within alternating sequences, and hence quadrupling, octupling etc. them by 
repeated application. 


Illustrations : Spacing character vectors 


Spaces can be placed between alternate characters of a character vector by: 


(=\(2xpT)p0)\T+«'FREDERICK’ a Start with space 
FREDERICK 
(4#\(2xpT)p1)\T*¢"'FREDERICK’ as Start with first character 
FREDERICK 


Selecting alternate items 


Using scan is an alternative method to indexing: 


(=\( pT) p0)/T«110 a even numbered items 
24 6 8 10 

(4#\(pT)p1)/T«110 a odd numbered items 
13579 


illustration : Adding columns of zeros to table 


(#\0C2x2>pNM) p1)\NM 


opens up alternately spaced columns of zeros in a numeric matrix NM. 


lilustration : Parity checking 


=/BV and #/BV give l-parity and Q-parity checks respectively for a binary 
vector BV: 


BV<O 1110 1 
(=/BV),(#/BV) 
10 


Further #\BV gives on-going 0-parity checks on the sequence so far: 
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BV«O 1110 1 
#\BV 
010110 


The scan diagrams given earlier cover the six relational and four logical scalar 
dyadic functions. Apart from the circle function (0) which is special, there are 
ten further primitive scalar dyadic functions. What are the results of applying 
their scans to the matrix M53? Four of them give results outside the binary 
domain, the remaining six duplicate the tables in the following pairings: 


(< |) ($ !) (> x) (v T) (A Ld) CA x) 
The functions above can also be arranged in dual pairs where “dual” in this 


context means that ~F\~V is equivalent to (dual F)\V. The primitive functions 
which possess duals are 


F = A &® < > fF fF | 
dual * ev € 2 | x ! 


The easiest way to visualize this duality is to rotate the appropriate scan 
matrices above about a horizontal axis. 


5.5.3.1 Reversing scans 


The following operators invert scans with vector arguments: 


CO] Z+(P UNSCAN)R 
C1] Z*R(1],(1+R)IP ~14R 


CO] Z+(P UNDO)R 
C1] Z*RO1],0° 14¥R)P 14R 


and the following relations apply: 


P COM UNDO R +> P UNSCAN R 
P COM UNSCAN R +> P UNDO R 


CO] Z*L(P COM)R 
C1] Z+*R P L 


UNSCAN works if P is associative and there exists an inverse function (see 
Section 4.4.1.2) - the only functions satisfying this criterion are + - = and =#. 


-UNSCAN and -COM UNDO both reverse +\ 
+UNSCAN and +COM UNDO both reverse x\ 
=UNSCAN and =UNDO both reverse =\ 
*#UNSCAN and #UNDO both reverse #\ 
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Illustration : Gray codes 


Gray codes are a method of representing integers using binary digits in such a 
way that only one bit is changed when an integer is incremented by 1. #\ con- 
verts Gray code representations to binary and #\UNSCAN does the reverse. Gray 
codes can therefore be obtained by first obtaining binary representations using T 
and then applying UNSCAN. A table of the first 15 integers in Gray code is given 
by: 

T,2(2]4UNSCAN’¢c{1)](4p2) TT€115 


1000 1 
2001 1 
3001 0 
40110 
5011 1 
6010 1 
70100 
81100 
9110 1 
10111 1 
111110 
121010 
13101 1 
14100 1 
151000 


5.5.4 Expand 


Suppose that a character matrix M Is given: 


M«2 3p'BATMAN! 
DISPLAY M 
ree 
¥BAT | 


| MAN | 
a 


together with the instruction “Space the matrix M.” On the structural level this 
might imply using ravel with axis (see Section 1.2.3), e.g. 


M¢2 39'BATMAN' 
DISPLAY ,[€1.1]M 
ree 
¥VBAT | 


lI | 
| |MAN| 
LL—__J 


At the data level there are at least nine possible interpretations of this instruc- 
tion as the following set of expressions show. Consider first 
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DISPLAY 1010 1\M 
a | 
WA TI 
IMA NI 
Ld 


Unlike first-generation APL where \ is the function, expand, \ is now an oper- 
ator so the derived function in the above expression is 1 0 1 O 1\. Enclosing 
M forces scalar expansion of the right argument as in the next expression: 


DISPLAY 1 0 1 O 1\cM 
nny 
Pres ero eo eo re! 
| ¥BAT| ¥ | vBAT| ¥ | ¥BAT| | 

| 
| 


| |MANI | | |MAN! | | |MAN| 
a ee Ce De ee 
Le——____ 


DISPLAY 1010 1\'M 


Replacing enclose by each forces scalar expansion of each item of M: 


The each in the above expression has the derived function 1 0 1 O 1\ as its 
operand. As with replicate (see Section 2.2.1) the left operand of \ must be 
simple. An expression such as (¢1 0 1 O 1)\"M thus leads to a DOMAIN 
ERROR. To apply each in this situation it is necessary to create a defined func- 
tion, e.g. 


[CO] Z2*L EXPAND R 
C1] Z*L\R 


DISPLAY (1 0 1)(1 00 1)\"°AB® ‘DE' 
DOMAIN ERROR 
DISPLAY(1 0 1)(1 0 0 1)\°"AB* ‘DE’ 


A A 

DISPLAY (1 0 1)(1 0 0 1)EXPAND”'AB' ‘DE’ 
p> 
lores re i! 
| IA BI ID EI | 


ee ee ee 
Le—_—___— I 
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DISPLAY (<1 0 1 0 1) EXPAND’M 
at 
7 re——_! 
| 1B B BI IA A Al ITT TI I 
, eee Le Le) | 
I ieee 0 dees 0 ieee 
| IMM MI IA A AI INNNI | 
Pe een sO 
L 


¢———— 


Partial enclosure requires matching lengths between 1s in the left operand and 
the number of columns or rows in the right argument: 


DISPLAY 1 0 1 O 1\c[1]M 
ot 
Pra rs eee |! 
| IBM! | | IAAI | | ITNI | 


DISPLAY 1 0 1\c[{2]M 
| 
Ira reo re |! 
| IBATI | | IMANI | 
Ps es ee es 
Le—____ 


Now use each once again to force itemwise scalar expansion of first columns, 
then rows: 


DISPLAY 1 0 1\"c{1IM 


Te gees Ee geen Oe gees 
| IB MI IA Al IT NI I 


DISPLAY 101 0 1\"e(C2J]M 


OT 
es ees Oe ee 
| iB ATI | 

ee ee eee 
Le———____ 


Matching disclosures make the results simple: 
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DISPLAY 2[2]1 O 1\"c{1]M 


DISPLAY 2[1]1 01 0 1\"e{2]M 


5.5.5 Outer Product 


The key phrase associated with outer product is, as in first generation APL, each 
with every, that is each of the items in the left argument is combined through the 
function operand with every item in the right argument. However since any 
result producing dyadic function can be the operand, the depth of the result 
may change. Consider for example 


DISPLAY (2 2)3°.+3(4 5) 
| 
| 

Lo——J Lr—t | 
| 
| 
| 


_E——— 


DISPLAY (2 2)3°.93(4 5) 


i 
re ree 
¥3 3 v4 5] 


Each cell of the result is obtained as 
ZCI3:JJ] «> c(oL[LIJ)FORE[J] 


Compare this with the each rule (see Section 4.1) which states that if Z«L F"R 
then 


ZCIJ «> c(2L[LIJ)FRCI] 
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If the arguments are of higher rank than vectors, replace replace I and J above 
by the indices necessary to reach scalar level. For example, if L and R are 
matrices 


ZCIsJsKsL] «* c(>LC1I3JJ]) FORCK3L) 
or more generally 
ZCLI$RIJ] «> c(>LCLIJ)FRCRII 


where LI and RI are index sets for L and R of appropriate rank. 
The shape rule from first-generation APL still applies, viz.: 


the shape of the result is the catenation of the shapes of the arguments, 


or more formally: 
eZ +> (pL),peR 
Establishing the shape of the result initially is often very helpful in working out 


the values of outer products. For example, the following outer products neces- 
Sarily result in two-item vectors: 


DISPLAY”(1 2°.xe3 4)((¢1 2)°.x3 4) 
Jj r—— 


Ie geen 0 gees Wk eee gee 
| 13 41 16 81 | | 13 61 14 81 | 
ee ee ee | p Lod Lot | 


be bg 


On the other hand, the following outer product must be a scalar : 
DISPLAY (¢1 2)°.x¢3 4 


5.5.6 Inner Product 


In first-generation APL, inner product operands are restricted to primitive 
scalar functions and the shape vector rule dominates the outcome in that if L 
and R are left and right arguments respectively it is necessary (subject to scalar- 
extension flexibility) that 


(~14pL) «> 14pR 


The shape of the result is (pL),oR with both the matching inner shape vector 
items removed. 

The most common form of inner product is that in which a pair of matrices L 
of dimension (m,k) and R of dimension (k,n) is reduced to a single matrix of 
dimension (m,n). 
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0 
.@) 
I 


m L k m| LP.QR 


Each cell of the result of L P.Q R is the result of first applying the functions Q 
between each item of a pair of vectors, one a row of L and the other a column of 
R, and then doing a P reduction on the result. The two functions P and Q thus 
behave quite differently, Q is a function operating between matching pairs of 
items, P is the operand of a reduction. 

The most frequently occurring inner product is +.x which is equivalent to 
matrix multiplication in the mathematical sense. Each cell of the result is an 
itemwise product of two vectors, and then plus reduction is applied to the 
resulting vector. 

Another frequent inner product in first-generation APL is ~.=. By the same 
reasoning this gives 1 only if afl (a/) the matching pairs in the vectors are equal. 
Similarly v.= gives 1 if at least one (v/) of the matching pairs are equal. ~ and 
v as left operands of inner products thus model the universal and existential 
quantifiers respectively of symbolic logic. 

The logical functions give rise to other inner products with binary arguments: 


A.V gives 1 if all pairs contain at least one 1 
VeA gives 1 if at least one pair has two Is 

A.W gives 1 if there are no pairs of matching Is 
A. gives 1 if all the pairs consist of two Os 


Some inner products which apply to numeric arguments are: 


Tel gives the maximum of a set of pairwise minima (maximin) 
L.f gives the minimum of a set of pairwise maxima (minimax) 
L.- gives the minimum of a set of differences of paired items 


In APL2 the shape rule still applies but operands may be both user-defined 
functions on the one hand, and non-scalar primitive functions on the other. For 
example in considering the last of the above inner products it is likely that the 
absolute difference might be of more interest, that is the inner product L.AD 
where 


CO] Z*L AD R 
C1) Z«|L-R 


2479 L.AD 416 15 


The price of this increase in flexibility is a slight increase in the complexity of 
the inner product rules. To evaluate L P.Q R the following sequence of actions 
must be carried out: 


Step 1 : Enclose L and R along inner matching axes. 
Step 2 : Perform Q outer product. 
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Step 3: Apply P/ within each cell, or equivalently P/~ to each cell. 
Consider as a further example the inner product 
T+.pT¢2 2914 


Enclosure along last and first dimensions of left and right arguments respec- 
tively means that the p step of the operation consists of forming the outer 
product of the two vectors 


(1 2903 4) and (1 3)(2 4) 


The each rule applied to outer products as described in the previous section 
leads to the depth-two rank-two array whose four cells are 


(c3 4p1 3) (<3 4p2 4) 


Now apply +/* (that is +/ within each cell) to give the final result 


4 6 
88 8 12 12 12 


Eliding arguments the picture is 


emphasizing that a function composition occurs within each cell. 
Formally the definition of the inner product Z«L(P.Q)R is 


Z+F/"“(c{fppLjJ)e.G c{1]JR 
and the shape of its result is 
eZ +> ('1+pL),1+eR 


Inner products allow great programming versatility as the next illustrations 
show. 


illustration : Finding vowels in words 


Consider the difference between the following two expressions: 


(c"CAT')e.1*AEIOU' 
24444 
"CAT'|.1°AEIOU' 
2 


The inner product L.1 returns the index of the first vowel in the word *CAT’. 
To find the first vowel in each of a vector of words use 
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"CAT’ "ELK'L.1°¢*AEIOU' 
2 1 


or equivalently 


L/*CAT® "ELK'e¢.1°AEIOU' 
2 1 


The case where the right argument of P.Q is a scalar is of special interest since 
P/ of a scalar does not involve an execution of P. Thus if P is any scalar func- 
tion 


"CAT" P.1°A' 
is equal to 2 and 
"CAT’ P.i1c*AEIOU' 


is equal to 4. 


Illustration : Gradient of mid-points 


Define 
[Oj 2*L GRAD R CO] Z*L MIDPT R 
1) 2Z2*?L?.-R [1] Ze. 5xLtR 


to return the gradients and mid-point of pairs of points defined as two-item 
vectors of Euclidean co-ordinates. Ignoring the complexities of zero and infinite 
gradients, if A, B and C are three points then 


A B GRAD.MIDPT BC 


gives the gradient of the line joining the midpoints of AB and BC. 


illustration : Sampling Extreme Values from Uniform Distribution 


This illustration is a variation on the function deal. The expression n?100 
describes a random sample of n integers drawn from the uniform distribution of 
integers 1 to 100. For n not exceeding 100, nf .?100 returns the maximum of a 
sample of n such integers. nf .?“mp100 returns the maxima and nL.?”mp100 
the minima of m such samples. For example: 


10f .?°15p100 

97 95 88 92 90 97 93 95 100 84 56 97 95 96 94 
3f .?°15p100 

84 57 79 81 81 67 95 93 95 53 72 85 69 58 92 
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10L.?7°15p100 
521079 1641141211337 
3L.?°15p100 
19 56 17 24 12 44 22 20 45 18 44 28 34 16 14 


The functions » and p_ lead to a further subtlety on account of their rank- 
increasing property discussed in Section 5.5.1. Consider for example the inner 
product 1 2 3,.,4 5 6. The shape rule for inner product requires that the 
result is a scalar since discarding the inner (and only) axes leaves nothing in the 
shape vector. To find its depth and value determine first the catenate outer 
product of the two scalars obtained by enclosure along the inner (and only) 
axes: 


DISPLAY (c1 2 3)°.,;¢c4% 5 6 


Then the ,/” corresponding to the leftmost catenate in the inner product results 
in a further enclosure for the reason given above, giving as the final result the 
depth three scalar: 


DISPLAY 1 2 3,.;4 5 6 


In summary the evaluation of inner product requires an application of several 
important identities all of which play a role in determining the data, shape and 
structure of the result. Formally these are: 


lL P.Q R «> P/"(c[LppLIL)°.Qe[1]R 
2. For Z«Le.P R, each item Z[I3J] «> ¢(>L[1])Q>R[J] 
3. P/"A «> cP/2A . 


As a further example consider the evaluation of the expression 1 2 3p.p4 5 
by following the formal rules. First by identity 1 
12 3p.p 4 5S «> p/"(c1 2 3)°.pc4 § 
There is no need for axis specification on the enclosures since both are vectors. 
The shape of the outer product (<1 2 3)°.pc4 5 is the join of two 10s and 


so the outer product itself is a scalar. Applying identity 2 to each item in the 
outer product - in this case the only item - gives 


€(31 2 3)p(54 5) 
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the result of which is: 
DISPLAY <(€21 2 3)p(234 5) 


that is a scalar containing a rank 3 array. Now p/™” 1s applied to this interim 
result. Applying identity 3, p/“<(>1 2 3)p(>4 5) can be replaced by 
cp/zc(21 2 3)p(>24 5). Simplifying the >s in this expression gives 


DISPLAY cp/1 2 3p4 5 


> > | 


| 
| 
444 4!| 1555 5 5] |] | 
| 
| 


| re | 


vo LOC 


Finally then, (¢1 2 3)p.p(¢4 5) is equivalent to 
DISPLAY 1 2 3 p.p 4 5 


Exercises 5c 


1. Given 
H¢2 20(2 12716)(0(2 3p7+16)(2 49016)(2 2p9) 


what are ,/H and ¢[2]H ? 


2. If 


M2 3p 'ABCDEF' 
A¢2 2 3p'ABCDEFGHIJKL' 


what are the values of the following 
a.,/M b.,/°M c.,/A d.,/°A ? 


3. a. Write a function SUBMAT which returns every consecutive submatrix of 
shape L occurring within a matrix R. For example if MS4 is the matrix 
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3 3 SUBMAT M54 should return the 2x3 matrix of consecutive 3x3 submatrices 
occurring in M54: 


1014 #010 101 
1 $1°0 101 o1 1 
o1 1 110 101 
110 10 1 O01 1 
o1 1 110 1 1 
110 101 010 


(Hint - you may find n-wise reduction useful, see Section 2.2.2) 


b. Use SUBMAT to detect every occurrence of the pattern 


> 
~ O 7a 
> 


in a bit matrix. 


c. Write a function PATIN which generalizes this process to match any given 
binary pattern in any binary matrix. 


4. The following three exercises all involve the use of scan. 


a. Write an expression which returns a given character vector CV with double 
Spacing between each item, that is two spaces should follow every character, e.g. 


F R E D E R ITC XK 


b. Write an expression which returns CV written in blocks of two characters, 
each followed by a space, e.g. 


FR ED ER IC K 


c. Write an expression which deletes a comment from an APL line, that is all 
characters to the right of a including a itself. 


5. a. Predict the value and structure of 
((2 2)3)°.p6(4 1p°*ABCD® ) 


b. For the two simple matrices 


A«2 2914 
B«2 29014 
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evaluate in full detail the inner product A+.xB and confirm that the result is the 
Same as in first-generation APL. 


6. Evaluate the following outer products in terms of value, shape and structure: 


a. 2 40,41 4 6 d. 2 3°.91 4 
b. 2 4°,.,1 4 6 e. 2 4 6e°.,'AB’ 
C. 2 2°.p1 4 f. 2 4 6¢.,°AB' ‘CDE' 


7. Using an analogous argument to that in Section 5.5.6 for1 2 3,.,4 5 6 
determine without using a computer the shape, structure and value of: 


a. 3 2 1p.p3 2 1 d.1 2 3p.,4 S 6 
b. 3 2 1p.93 2 1 e. 12 3~.42 3 4 
Cc. 12 3,.p4 5 6 f. 12 34.923 4 


8. This exercise is designed to force precise application of the rules for reduction 
and inner and outer products, and should therefore be done in the first place 
without help from a computer. 

The two functions AVG and MID which follow both return the average of L 
and R in the particular case where L and R are both simple numeric scalars. 


[OJ Z+L AVG R CO) Z+L MID R 
C1] Z+.5x+/L,R C1] Z¢«L+.5x-/R,L 


Use the rules for reduction and inner and outer products to find the values of 


a. AVG/14 MID/14 

b. 1 2°.AVG 3 4 5 1 2°.MID 3 4 5 

Cc. (¢1 2)°.AVG 3 4 5 (c1 2)°.MID 3 4 5S 
d. 12,.AVG 3 4 5 1 2,.MID 3 4 5 

€ 12 AVG.,3 4 5 1 2 MID.,3 4 5 

f. 1 2 AVG.MID 3 4 5 1 2 MID.AVG 3 4 5? 
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5.5.7 Further Topics on Inner and Outer Products 


Illustration : Sequences of Inner Products 


In APL2 operands may be either derived or user-defined functions, so that 
expressions such as +.x.- which were invalid in first-generation APL now have 
meaning, e.g. 


1 2+.x.-3 4 | (a) 
4 


1 2+.(x.-)3 4 (b) 
rT 


To evaluate these apply the binding rules first (see Section 5.2) to work out the 
order in which the operators are applied and then consider the structure rules as 
the first step towards evaluating the detailed results. 

Looking in detail at (a), the binding rules, or equivalently the rule that opera- 
tors have long left scope, show that the derived function of the the leftmost 
inner product becomes the left operand of the rightmost inner product and so 
the final derived function is (+.x).-. The first-generation APL rule suggests 
an answer 


C+.x)/01-3),02-4) «> (4#.x)/°2 °2 «+> 4&4 
Under the APL2 rule the first step is to obtain the outer product 
DISPLAY (¢1 2)°.-c3 4 


| 

| 
ee | 
Le 


| 


Then apply +.x/ within each cell to obtain 
DISPLAY +.x/"“(¢e1 2)°,-c3 4 


4 


The APL2 rule thus follows first-generation intuition in this case, the difference 
being that for correct evaluation it is necessary to think of enclose and each, 
even although neither was present in the original expression. 


In (b), following first-generation APL intuition, one might suppose that the 
derived function x.- was applied first between two pairs of scalars and so 
should be equivalent to -, since if the arguments of an inner product P.Q are 
scalars then the function P plays no part, i.e. P.Q is equivalent to Q. This rea- 
soning would lead to a final result 


1 2+.-3 4 
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namely ~4. Correct application of the APL2 rules, however, leads to an initial 
outer product 


DISPLAY (c1 2)°.(x.-)¢3 4 
4 


which by the shape rule for the outer product is a scalar, and So it is the +, not 
the x, which is the null function. First-generation APL intuition is thus mis- 
leading in this case. 


Illustration : Inner Products with Nesting 


This illustration is a discussion of the differences between a pair of expressions 
which might at first sight look as if they should give the same results. They are 


(c1 2)+.xc3 4 and +.x/(c1 2),¢3 4 
To evaluate 
(c1 2)+.xc3 4 (al) 


Start with the shape rule which requires that the final result is a scalar. Steps 1 
and 2 lead to: 


DISPLAY (cc1 2)°,.xcc3 4 
rs | 


which is too deep for +/ to have an effect at Step 3. The final result is therefore 


DISPLAY +/°"(cc1 2)°.,xcc3 4 
rs | 


| 
| 
3 8i| | | 
| 
| 


On the other hand consider 


+.x/(c1 2),¢3 4 (a2) 
11 


The rank rule for reduction (see Section 5.5.1) shows that this must be a scalar, 
namely 
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(c1 2)+.x"c3 4 
11 


(al) and (a2) are thus not equivalent. 


illustration : Displacement Vectors 


Let B defined as 


Be2 2p(0 1302 0901 0040 2) 
DISPLAY B 


| 
[2 ol | 
Lad Lo! | 
esr i! 

lo 21 | 
Lot Lr! | 


© 
— 


be considered as a matrix of displacement vectors in two dimensional space (or 
forces, velocities, etc.) so that B is 

V1 V2 

Wi =W2 


and v, is (0,1), v2 is (2,0) and so on. Then >1 2+. xB gives (vj +2w))(v2+2w9) 
and >(¢c1 2)+.xB) gives (v,’+Wwy’)(V9' +Ww>’) where v’, and v’> represent v; 
and v> with x- and y- “stretch factors” 1 and 2 respectively applied to each dis- 
placement. 

Consider first 


DISPLAY 1 2+.xB 


| | 
lrloril lore iilimdl 
1 | 12 11 1 1 12 41 tT I 
| [bot pf be | 
| be—————J  le—————— | 
L 


The result is clearly (1xB[13]) + (2xB{£23]) , but why are the vectors 
doubly enclosed? To find out, follow the three steps for evaluating inner pro- 
ducts in detail: 


Step I: 
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DISPLAY c[{1]B 


es Oe ees Be 
Oe een ee gee Oe eee eee 
| 10 11 11 Of | | 12 Of [0 2I 1 | 
| nm end of | LK OLR] SC| 
L | 


crt Tt rae oy 


Nn 
ct 
o 
4°) 
to 


DISPLAY (¢c1 2)°.xc{1]B 


re | 
| peo OOO i! 
ee grees Oe eee We eee eee 
| | 10 11 12 Of [| | 12 Of 10 41 Tt | 
ee ee ee ee ee De oe Oe oe a 
| be—_—_________—J le) S| 
Le 


Next consider (¢1 2)+.xB . 


Steps 1 and 2: form outer product (cc1 2)¢*.xe¢[{1]B whose two items are 
DISPLAY” ((c1 2)x12>¢(1]B)((€¢e1 2)x2>2¢({11]B) 


oT eT 


ns gees Be ogee Oe cee eee 
| 10 21 11 Of | | 12 OF 10 41 | 
p Lot} Lt | ee ee ee 
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Step 3: apply +/ to each of these 2 cells, or equivalently +/” to the entire outer 


product to give the final result 
DISPLAY (c1 2)+.xB 


This result can also be written (c(¢1 2)xB[13]) + (e(c¢1 2)xB[23]). 
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Illustration : Outer and Inner Products with Explicit Each 


What are: 
(c1 2) x" ¢3 4 (a) 
(c1 2) e.x" ¢3 4 (b) 
(c1 2) +.(x") ¢3 4 (c) 
(c1 2) +.x" B (d) 


where B¢2 2p(0 1)2(2 0)(1 0)(O 2) as in the previous illustration? 


In (a) and (c) the pervasiveness of x means that the each has no effect. 
DISPLAY (¢1 2)x"c¢3 4 


DISPLAY (1 2)+.(x")e3 4 
7 

| 

l ree id'sidt 

1 13 st til 

J Lvr—t | | 

L | 


In (b) however the operand of each is °.x which is not a pervasive function. 
The outer product shape rule forces the final enclosure which is necessary to 
make the result a scalar 


DISPLAY (¢1 2)°,.x°¢3 4 


In (d) each applies to the derived function +.x and effectively cancels one level 
of enclosure: 
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DISPLAY B 
Oy 
res rere 


v | 
| | 
ee ee ee ee 
| | 
| | 
| | 


11 O} |[O 2I 

Lr = Ler 
Le——_____ SYS 

DISPLAY (c1 2)+.x"B 

ree 
¥2 2] 
11 4] 
a | 


This result is the same as 1 2+.x>[({11]B for which the steps are: 


2>[1]B 
2 
10 
10 
0 2 
1 2+.x2[1]B 
22 
14 


Illustration : Sequences of Inner Products with Nesting 


The next two examples demonstrate inner products where one operand is a 
derived function, and one or both arguments is a nested array. 


DISPLAY (¢1 2)+.+.xB 
ree 
[3 6] 
LJ 


Step 1: the enclosure along the last axis of L gives (cc1 2), that along the first 
axis of B gives a two-item vector: 


DISPLAY ¢({1]B 


ees (thee 
a geen Oe geen Oe eee eee 
| 10 71 11 OF T | 12 Of 10 21 1 I 
jp Wey be | 7p WHI LHI | | 

| 


Step 2: form the outer product which the shape rule requires to be a two-item 
vector: 
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DISPLAY (cect 2)°,.xc({1]B 


| | 
ee geen ee ogee Oe cee ee 
1 | 10 21 11 Ol | | 12 Ol 10 4] 1 I 
ee ee es ee ee es eee es eee De 
| | 
L 


The two items of this outer product are : 


DISPLAY” ((¢1 2)x12>¢{1]B)((¢1 2)x2>¢[1]B) 
rs | eo 


an eee We eee ee eee Ee eee 
| 10 21 11 Ol | | 12 01 10 41 I 
Pe eee Dees es De 


the derived function +.+ is applied separately to these items: 
DISPLAY(+.4+#/(€¢1 2)x19c[1]B)(+.4+/(¢1 2)x2>2¢[1]B) 


or equivalently +.+” is applied to the entire outer product: 


DISPLAY +.+/°(cc1 2)°.xc{1]B 


Pe 
13 6] 
a 


The next example differs from the previous one only in the order of execution of 
the two inner-product operators, and shows what a large difference this can 
make: 


DISPLAY (c1 2)+.(+.x)B 


| | 
| | -e_ ~«CdLCUdaLEsr --———"|_‘('!L:*COW! 
Pirie titil pei 
1 tottt 2t rq tt t 2 4t 1 tl 
Ptop bee ppd td oe 
| | be———oy | be Hg | | 
J be———_—_—_——$——<jJ be——_———_ | 


Again, here is a step by step analysis. First construct the outer product (step 2) : 
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DISPLAY (cci1 2)°.(+.x)e(1]B 


| | 
| | eee )hCUdaLhdaLedher? eo *d*d~=S«SC™C 
peers Fe Oe | 
1 | to tt 2h tr tt 2 4) ttt 
a DO 
[| | be——— oy | be——oH4 | | 
| | 


The shape rule shows that this is a two-item vector, whose two items are 
DISPLAY (¢1 2)+.x12¢{1]B 


| 


-—7 
N ¥ 
= | 


L 


rc- 


Apply +/ to each item separately: 
DISPLAY +/(¢1 2)+.x1>2¢({1]B 


or equivalently apply +/~ to the vector: 
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DISPLAY +/"“(cc1 2)°,(+.x)c(1JB 


| | 
1) -—oO!itl eee i 
rll pealtlll peal 
lt t i121 — 7d tt t2 4t t to 
ee ieee De | 
| | be———o | | beoHgO | I 
a ee ee en 


It is rather hard to conceive what the writer of either of the expressions (a) or 
(b) might be doing from the application point of view. Nevertheless they demon- 
strate the care which must be taken in applying rules precisely when coding and 
evaluating inner products. 


The key message from the above illustrations is that no matter how complex is 
an expression which involves inner and outer products its exact meaning and 
value can be deduced by careful application of the relevant rules. 


5.5.7.1 Inner Product and Scan 


There are relationships between scan and inner product in which the four 
functions A x 2 and »* play the role of auxiliary functions and triangular 
binary matrices form the inner product right argument. For example: 


O+UTM<(15)°.8515 
1111 41 
0o111 1 
0011 1 
0001 1 
0000 1 

#\15 
13 610 15 

(15)+.xUTM 
13 610 15 

x\15 


12 6 24 120 
(15)x.*xUIM 
12 6 24 120 


More generally, the relation to be satisfied is 
F\A +> A F.aux UTM 


where A iS an a numeric array, UTM is the upper triangular matrix of appro- 
priate shape with 1s on and above the leading diagonal and aux is the appro- 
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priate auxiliary function. The relationship holds for the combinations indicated 
by the entries y in the tables below: 


aux. aux. 
A x 2 * 
? y y = y y 
> y y 2 y y 
F Vv y y FA y y 
+ y x y y 
- y + y 
* y y 


5.5.7.2 Decode/Encode and Inner/Outer Products 


Decode and encode share with derived functions the property that they combine 
the actions of simpler functions, + and x in the case of decode, | and ¢ in the 
case of encode. In some special cases there are simple equivalences between 
decode/encode and inner/outer products, for example a polynomial such as 
x?+4x+3 can be evaluated at x=2 either as 


(2*2 1 O)+.x1 4 “3 


or aS 
211 4 “3 


and 13 can be expressed as a binary number either as 
21L13°.#2*3 2 1 0 


OT aS 


(4p2)T13 


More interestingly the shape rules for decode and encode are identical to those 
for inner and outer products, and the steps for evaluating the inner product of 
two matrices (see Section 5.5.6) are identical to the first two steps for evaluating 
an inner product. 


Illustration : Decode and encode for arrays 


Suppose that 


(L R)<V53<«(2 3p0 3 12 10 10 10)(3 291 5 217 3) 
DISPLAY’L R 
ree ore] 
+O 312] +1 SI 
110 10 10| [12 1| 
Lvl 6 73] 
Land 
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The shape rule gives the shape of L1R as 2 by 2. The steps for evaluating LiR 
are: 


Step 1 : Enclose L and R along inner matching axes. 
Step 2: Perform 1 outer product. 


LiR 
67 195 
127 513 


which is the same as (¢{2]L)e¢.1¢{1]R. 


With encode the situation is a little more complex. Consider (QL)1T,LiR. The 
shape rule gives the shape of the result as 3 2 4 and the values are: 


(QL) T67 195 127 513 


15 3 14 
011 5 
211 0 
692 #1 
737 9 
757 3 


The first columns of the result: 
1003]¢QL)T67 195 127 513 


NO Oo 


1 
2 
7 


give the separate encodings of 67 with respect to 0 3 12 and 10 10 10, the 
second columns the encodings of 195 and so on, while the first and second rows: 


1002](QL)T67 195 127 513 
14 
0 
737 9 

2002](&L)T67 195 127 513 
0115 
6921 
7573 


N = 
= Ul 
= W 


give in their columns the set of codes corresponding to the encoding vectors 
O 3 12 and 10 10 10 respectively. 

To reverse the operation LiR in the sense of recovering R from each of the 
two decodings use: 


(c{2]L)T“«{L2)]LiR 
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Exercises 5d 


1. PROD is a vector of vectors in which alphanumeric characters represent ser- 
vices offered by a set of producers. CONS is another vector of vectors describing 
the various services required by a set of consumers. For example 


PROD¢‘'ABC’ "BDF' ‘AC’ '‘ABCEF' 
CONS<«'AB' ‘BF' ‘ABCD’ 


defines the capabilities of four producers and the requirements of three con- 
Sumers with regard to a set of six services. 


a. Write an expression to give an incidence matrix which records which pro- 


ducers can completely supply each consumers requirements, e.g. for the data 
above the resulting matrix would be 


1 
0 
0) 


oO- 36 
OOo Oo 
o-= a 


Amend your code to return a vector of vectors, each of which gives the indices 
of those producers who can completely satisfy a consumer’s requirements, e.g. 
(1 4)(2 4)(10) in the case above. 


b. Repeat the above with “partially” replacing “completely” so that the result 
for the given data is for the data above the resulting matrix would be 


—_ w—_- oh 


111 
101 
111 


2. a. What does the following phrase do 
+/°(¢10 10)°.T120 ? 
b. Why does 
(c10 10)+.T120 


give a DOMAIN ERROR? 


172 APL2 IN DEPTH 


5.6 Applications of User-Defined Operators 


5.6.1 Control Structures 


The following subsections illustrate how to achieve some traditional control 
structures of computer science such as only, unless, upto and until. The opera- 
tors ONLY, UNLESS and UPTO provide control based on arguments, whereas 
RPTUNTIL and DOUNTIL give control via successive results, either with or 
without feedback. 


5.6.1.1 ONLY 


The object of this operator is to execute a function P on the argument L but 
ONLY on the item which is determined by the index given by Q. 


[0] Z*L(P ONLY Q)R a P is a function, Q is an index 
C1] ZeL 
C1] (Q0Z)<(Q0Z)P R 


Illustration : Selective function application 


Actions are performed only on array item with a given index. 


M 
123 
4 5 6 

Mt+tONLY(1 2)99 
1101 3 


4 5 6 
MPONLY(2 3)99 


12 3 
4 5 99 


5.6.1.2 UNLESS 


The operator UNLESS applies a function P to its argument or arguments 
unless a predicate Q is true in which case the right argument is returned. 


[0] Z*L(P UNLESS Q)R 
[1] +70 IF Q Z«R 

[2] +L1 IF o#0Nc 'L' 
[3] +70 ZecP R 

C4) L1:Z2¢cL P R 


P is a function, Q is a predicate 
exit if predicate true 

branch if dyadic derived function 
monadic case 

dyadic case 


A simple predicate is SOMECHAR: 
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Co] Z+SOMECHAR R a returns | if some character items in R 
C1] Ze" "eéEetOpcR 


Applying UNLESS with each allows P to be applied to each item of an array but 
ignoring any items which satisfy the predicate Q. 


V54<(13)(4 5)(¢'"FRED')(7 6) 


2+UNLESS SOMECHAR’ V54 
3 4 5 6 7 FRED 9 8 

AUNLESS SOMECHAR’ V54 
12 3 1 2 FRED 2 1 


The binding rules of Section 5.2 show that the operand Q is tightly bound to 
UNLESS as the parentheses in the header line suggest visually, that is in the 
expression 2+UNLESS SOMECHAR’V it is +*UNLESS SOMECHAR to which each is 
applied and not SOMECHAR. 


Illustration : Selective Processing 


Define a nested array containing items of mixed type: 


V55<(1 2.5 ‘XYZ')C'ABC’® 3 12) 
DISPLAY V55 


| ae ee oe | 
| Le ; | a | | 


| 
| 
1 112.5 [XYZ | 
| 
| 


Take the expression 1+V55 and modify it to exclude character items: 


1+UNLESS SOMECHAR’ 'V55 
23.5 XYZ ABC 4 13 


UNLESS can be applied more than once in the same expression: 


1(+UNLESS SMALL” )UNLESS SOMECHAR’VS5 
12.5 XYZ ABC 3 13 


[Oo] Z«+SMALL R a returns 1 if first item is less than 5 
C1] Z*5>4R 


Explicit parentheses can be used to underline the way in which the two 
UNLESSs are nested. 


1((+UNLESS SMALL)” UNLESS SOMECHAR) “V55 
12.5 XYZ ABC 3 12 


In this example the SOMECHAR selection must be applied before the SMALL 
Selection, otherwise the result would be a DOMAIN ERROR. 
Here is a further example in which only integers are selected: 
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1+UNLESS FRACTNL” UNLESS SOMECHAR”™+*V55 
22.5 XYZ 


[0] 2Z+FRACTNL R a returns | if R non-integral 
C1] Z*R4LR 


5.6.1.3 UPTO 


A variation on UNLESS” is to stop processing when the predicate is satisfied 
rather than skipping an item. A recursive operator to describe this is UPTO. 


[0] Z*+L(P UPTO Q)R a P is a function, Q is a predicate 
C1] »>LO IF Q¢tR a stop when condition reached 

[2] »L2 IF O#0NC'L' a branch if dyadic derived function 
C3] Lt: a monadic case 

C4) >O Ze(cPtR),(P UPTO Q)14R 

C5] L2: a dyadic case 


C6] >O Ze«(cL P*R),L(0P UPTO Q)1VR 
C7] LO:Z«10 


V54<(13)(04 5) 0c*FRED')(7 6) 


2+UPTO SOMECHAR V54 


345 67 
AUPTO SOMECHAR V54 
123 12 


The operator UPTO has the general structure 


CO] Z*L(P OPR Q)R 
C1] »~LO IF... 

C2) >L2 IF O#QNC'L’ 
C3] >O Ze... 

C4] L2:70 Ze... 

C5] Lo:Z«... 


stopping condition 

branch if dyadic derived function 
monadic recursion 

dyadic recursion 

stopping action 


> 3 3 23 3B 


UPTO can be abbreviated to two lines by defining a function 


CO] Z*LEX 
C1) Ze¢*L"' IF O#0NC'L* 


and using execute: 


CO] Z+L(P UPTO Q)R a P is a function Q a predicate 
C1] +0 IF QtZ<«R a stopping action 
C2) Z2ee"'(c’, LEX,’ PtR),',LEX,'(P UPTO Q)1+R° a recursion 


While this has some appeal in packing all the recursive action into one line, 
many APL programmers would balk at the obscurity of the code necessary to 
do so and would opt for the previous form which also runs faster on account of 
the inherent inefficiency of using execute (2). 
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A variation on UPTO is to specify a stopping item rather than a predicate. 
This can be accommodated by a ONC test on Q on entering the function: 


[0] Z+L(P Upto Q)R a Pisa function 
[1] +L01 IF 3=Q0NC 'Q' a branch if Q is a predicate 
[2] >(L1 IF Q=*R),L02 a stop condition if value 
[3] L0O1:*L1 IF QtR a stop condition if predicate 
[4] LO2:*L2 IF O#0NC'L' a branch if dyadic 
[5] *0 Z¢(cPtR),(P Upto Q)14VR a monadic recursion 
[6] L2:*0 Z«(cL P*R),L(P Upto Q)1¥R_ a dyadic recursion 

A 


[7] L1:Z<«10 stopping action 
V54<(13) (04 5) (c'FRED')(7 6) 


2+Upto SOMECHAR V54 
345 67 

2+Upto(4 5)V54 
3 45 


A programmer intent on shortening code by using execute might write: 


[0] Z*+L(P Upto Q)R a P is a function 
[1] e'*O IF Q ',('=' IF 340NC'Q'),'*R',Z«10 a stopping action 
[2] Zee'(c*, LEX,’ PtR),*,LEX,'(P Upto Q)14R' a recursion 


9.6.1.4 UNTIL 


Instead of applying a function P repeatedly to items in the data as in the case of 
UNLESS and UPTO (or its variants) it is often desirable to carry on executing P 
to the entire data until some specified circumstance arises. This may or may not 
involve feedback of the result (cf. the distinction between POWER1 and POWER2 
in Exercise 5b). Two further distinctions can be made, first is the function 
monadic or dyadic, and secondly is the test on a predicate or a value. The no 
feedback case is dealt with by the operator DOUNTIL, and feedback by the oper- 
ator RPTUNTIL. 

A simple way to develop DOUNTIL is to program the monadic case where the 
test is on a stopping value: 


[0] Z*L(P DOUNTIL Q)R3T 
[1] Zee 

[2] +70 IF Q=T+P R 

[3] 2Z+«(cT),P DOUNTIL Q R 


?DOUNTIL 3 6 a throw a die until a three shows 
§ 21524 5 


The above example is a further illustration of the application of the binding rules 
(see Section 5.2). The binding between DOUNTIL and 3 (right operand binding) 
is stronger than that between 3 and 6 (vector item binding). 

Now extend DOUNTIL to deal with the options of dyadic derived function and 
predicate: 
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Co] Z+L(P DOUNTIL Q)R3T a P is a function, Q is a test 
C1] Ze"! | 

[2] >LO IF O#0NC ‘L’* 

C3] >L0O1 T¢P R 

C4] LO:T«L PR 


[5] L0O1:*L1 IF 340NC 'Q’ a needs match if Q not predicate 
[6] >O IFQT 
C7] >L11 


[8] L1:+0 IF Q=T 

[9] L11:*L2 IF ONC 'L' 

[10] +0 Z#(cT),(P DOUNTIL Q)R 
[11] L2:Z+(ecT),L(P DOUNTIL Q)R 


[CO] Z*L ROLL R 
C1] Z+?LpR 


CO) Z*ALIKE R 
C1) Zt+A/R=tR 


2 ROLL DOUNTIL ALIKE 6 _ a throw a pair of dice until 
65 52 24 63 a a double appears 


For the purposes of copy-typing the condensed form using execute (¢) is often 
more useful: 


CO] Z*L(P DOUNTIL Q)RsT 

C1] T+eLEX,* P R',Z¢'' 

[2] 2'?0 IF Q ',(*=s* IF 340NC'Q'),'T' 
C3] Z¢(cT),e@LEX,*(P DOUNTIL Q)R’ 


The function RPTUNTIL is developed in the same way, that is, first by defining 
one case, e.g. where the function P is dyadic and Q is a predicate: 


CO] Z*L(P RPTUNTIL Q)R 
C1] *O IF Q Z+tR 
[2] Z*+L(P RPTUNTIL Q)L P R° 


and then generalizing it to cover the other cases by using e: 


Co] Z*L(P RPTUNTIL Q)R a P is a function, Q is a test 
C1] 2°20 IF Q ',(*=' IF 340NC'Q’),'Z¢R’ 
[2] Z+@LEX,*(P RPTUNTIL Q)*,LEX;,' P R’° 


Co] Z+SMALL R a returns | if first item less than 5 
C1] Z¢5>4R 


2¥RPTUNTIL SMALL $0113 
~-5xRPTUNTIL SMALL 999 


'X',RPTUNTIL *XXXX* '° 
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illustration : Repetitive Prompts 


177 


The simplest way of combining N separate input strings from a terminal into an 


N-item vector is 
© “No e " e 


Entry of multiple input lines is usually associated with prompts and a simple 


function which provides these is 


CO) Z*ASK R 
C1] M+R 
C2] Z2+(p,R) V0 


ASK 'NAME=' 
NAME=ALF 
ALF 


ASK can be used with each to obtain answers to an ordered succession 
prompts: 


ASK" 'NAME=' 'NO='° 
NAME=ALF 
NO=49 
ALF 49 


Now define a function NULL (that is null line) for use as a stopping condition: 


CO] Z¢*NULL R 
C1] ZtOepR 


and apply DOUNTIL to issue repeated prompts: 


ASK DOUNTIL NULL ‘ENTER=' 
ENTER=A 
ENTER=BB 
ENTER=CDE 
ENTER= 
A BB CDE 


ASK DOUNTIL '99' ‘ENTER=' 
ENTER=7 
ENTER=33 
ENTER=99 
7 33 


of 


The derived function ASK” can be used in conjunction with DOUNTIL to repeat 


chains of prompts until a complete cycle of null responses has been given: 
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ASK" DOUNTIL NULL ‘NAME=' ‘NO=' 


NAME=ABC 
NO= 1 
NAME=XYZ 
NO=2 
NAME= 
NO= 
ABC 1 XYZ 2 


Ilustration : Iterative solution of non-linear equations 


RPTUNTIL provides a method of solving by iteration equations which can be 
expressed in the form y=f(y) for which there is a convergent solution from the 
given start value. An example is y=cos(y) which was first discussed in 
Exercise Sb4c. EPS is a global variable which defines a stopping tolerance, e.g. 
.00001 in the present case. 


[CO] Z*+COS X 
C1] Zt 20X% 


CO] Z*NEAR X 
C1] a n.b. function P is defined in RPTUNTIL 
[2] ZtEPS>|X-P X 


COS RPTUNTIL NEAR 1 
0.73909 


For Newton-Raphson iteration define another two operators and a variable con- 
taining the step size: 


CO) Z¢(P NEWTON) X 
C1] Z*X-(P X)+P DERIV X 


CO] Ze(P DERIV)X 
C1] Zte((P X+AX)-P X)tAX 


AX«.00005 


To solve the equation x(x-1)=2 define 


CO] ZF X 
C1] Z¢2-XxX-1 


The roots to which the Newton-Raphson process converges for different starting 
values are then given by: 


(F NEWTON) RPTUNTIL NEAR 1 


(F NEWTON) RPTUNTIL NEAR “1.2 
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Illustration : Non-linear function fitting 


The primitive function # performs least squares fits of linear functions. With 
only a modest amount of programming it can also be used to fit a much wider 
range of non-linear functions as the present illustration shows. Suppose that it is 
required to fit a function of the form 


y =a+b.exp(-cx) 
to the data 


X«V56 

012345678 9 10 11 12 13 14 15 16 17 18 19 
Y*V57 

4.745 4.6532 4.6036 4.0066 4.0864 4.5687 3.806 3.1908 
3.0976 3.6759 3.8764 3.4329 4.1062 3.0066 2.6309 
3.6943 3.2929 2.4183 3.4453 3.1949 


Define the function FN in which C stands for coefficients: 

CO] Z2*C FN X 

C1] 2€CC1]+C(2]x*-C[3]xXx 

Partial derivatives with regard to the coefficients are estimated by defining an 
operator: 


[CO] Z2*C(F PDERIV X)N;T 


[1] a N is index of coefficient whose partial derivative is required 
[2] Z+(((C+TxN=1pC)F X)-C F X)4#T*aAX3(N] 


Intervals can be defined for each coefficient separately as the rightmost part of 
the above function line implies: 


AX3 
0.00001 0.00001 0.00001 


Fitting is carried out using domino: 


CO] Z2+X(F FIT YC 
C1] Z#C+(Y-C F X)H201)]0cC)(F PDERIV X)“1pC 


Make a first guess at the coefficients: 
Co<3 4 .4 


and then run the function FIT: 


X FN FIT Y CO 
3.2267 1.4653 0.21462 


Now use RPTUNTIL to iterate towards a solution with prescribed accuracy. A 
stopping criterion might be that all the coefficients are within EPS of the pre- 
vious iteration. This is described by the function ALLNEAR which uses the P and 
L of RPTUNTIL: 
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CO] Z*ALLNEAR C 
C1] a n.b. function P and argument L are defined in RPTUNTIL 
[2] ZtA/EPS>|(C-C P L 
EPS 
0.00001 


A small amendment must be made to FIT: 


CO] ZtA(F Fit YB 
C1] Z*R+(Y-R F L)H2C11](cR)(F PDERIV L)“1pR 


which now has dummy arguments A and B since it is the derived function 
(F Fit Y) which is the left operand of RPTUNTIL and L and R are the argu- 
ments of RPTUNTIL. The iterated solution is: 


 X FN Fit Y RPTUNTIL ALLNEAR 3 4 .4 
2.8907 1.9388 0.1186 


To obtain a trace of the steps towards convergence add [+ at an appropriate 
point in RPTUNTIL: 

C2] Z+e@LEX,'(P RPTUNTIL Q)0¢«',LEX,* P R' 
and rerun: 


X FN Fit Y RPTUNTIL ALLNEAR 3 4 .4 


3.2267 
3.0237 
3.0959 
2.8934 
2.8909 
2.8907 


1.4653 
1.7732 
1.7285 
1.9353 
1.9387 
1.9388 


0.21462 
0.077427 
0.12798 
0.11731 
0.11862 
0.1186 


To confirm the correctness of Fit define Y so that the exact result is known in 
advance: 


Y*5t+2xwe-.2xX 
X FN Fit Y RPTUNTIL ALLNEAR 3 4 .4 
340.4 
5.1016 1.8463 0.2698 
5.0267 1.9624 0.18631 
5.0021 1.9973 0.20003 
5 2 0.2 


5.6.2 Conditional and Alternative Function Execution 


Operators are a natural mechanism for writing functions which avoid 
anticipatable APL errors. The first illustration below gives an operator which 
restricts function execution to selected parts of the data only. The second illus- 
tration gives a technique for providing alternative monadic functions. 
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Illustration : Data Filtering 


The operator UNLESS in Section 5.6.1.2 was used to to apply a left operand 
selectively. A disadvantage of this is that the predicate function may generate an 
error as in: 


V55<(1 2.5 "XYZ*')C*ABC" 3 12) 
DISPLAY V55 


re 


leo OP i 
| | ‘cee Le ee | | 
1 | 12.5 [X¥Z! | | [ABC] 3 12 | | 
| | bet py | | 
L 


[0] Z*SMALL R 
C1] Z¢+¢5>4R 


1+UNLESS SMALL’VS5 
DOMAIN ERROR 
SMALL[ 1] 
C1] Zt+5>4R 


A technique which overcomes this is to to apply compression to R in order that P 
be applied only to those items which satisfy a predicate Q such as NUM: 


CO] Z+NUM R a returns | if R entirely numeric 
C1] Z*2=21(0 * ")EeEetOpcR 


Next an operator FILTER is defined: 


Co] Z*+L(P FILTER Q)R3T a P is a function, Q a predicate 
C1] Ze*R((T/RI*L PC T*¢Q’R)/R) 


1+FILTER NUM’ ’V55 
23.5 XYZ ABC 3 13 

1(+FILTER SMALL”)FILTER NUM” ”V55 
2 3.5 XYZ ABC 4 12 


Another possible filter function is INTEGRAL: 


[0] Z+INTEGRAL R a returns | if R is numeric and integral 
C1] Z*R=LR a n.b. must be match, = won't do! 


1(+FILTER INTEGRAL” )FILTER NUM” "V55 
22.5 XYZ ABC 4 13 
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Illustration : The ELSE Operator 


It can sometimes be convenient to be able to provide alternative monadic func- 
tions depending on some user-defined condition which need not necessarily be 
error-producing. This facility is provided by the operator ELSE: 


CO] Z+L(P ELSE Q)R a P and Q are functions 
C1] *L1 IF*L a Q is executed if L false 
[2] +0 Z+P R a otherwise P is executed 


C3] L1:Z+«Q R 


(A#2) (2ELSE+) At2 3 4 
23 4 

(A#2) (7 ELSE+) “At2 3 4 
2 0.3333 0.25 


The rightmost sets of brackets are not necessary in the above : 


(A#2)+ELSE+"A¢2 3 4 
2 0.3333 0.25 


but they help clarify the meaning. 


Exercises 5e 


1. Write an operator ONLYS which extends ONLY by recursion so that Q is a 
vector of indices, e.g. 


M<+2 3916 

M+ONLYS((2 2)3(2 3))100 
1 2 3 
4 105 106 


2. a. Rewrite the operator TRACE of Section 5.3 using @ and the function LEX. 


b. Extend the operator SIMPLE in Section 5.4 so that it deals with both 
monadic and dyadic derived functions, e.g. 


ASimple((9 5 6)(7 4))(8 5 3) 
should return the value ((2 3 1)(2 1))9(3 2 1). 
3. Rewrite the dyadic composition operator COMP1 of Section 5.2.2 so that it 


deals with both monadic and dyadic derived functions, that is pCompip“T is 
equivalent to p“p“T, and 2eComp1e“T is equivalent to 2e“e"T. 
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4. An alternative to the Newton-Raphson technique for finding a root of f(x) =0 
is known as the Secant method. The algorithm consists of starting with a pair of 
values Xp and x; one on each side of the root, and identifying the co-ordinate, 
X, Of the point where the line joining the points (Xo,f(xo)) and (X),f(x,)) crosses 
the x-axis. Take whichever of the intervals (xXg,X>) and (X>,x;) contains the root, 
and repeat. Under suitable conditions x» will converge to the root. 


Using RPTUNTIL and NEAR write an operator analogous to NEWTON together 
with any requisite operators or functions so that 


F SECANT RPTUNTIL NEAR V 


where V is an appropriate two-item vector of co-ordinates, delivers the required 
root of F. 
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9.6.3 LEVEL 


In first-generation APL, the result of adding two vectors of equal length is 
unambiguous: 


1 2+1 3 
25 


Nesting allows two other possibilities for adding simple vectors. 
(a) 1 2 (b) 1 3 


Assume that an operator LEVEL has been written to distinguish these cases: In 
(a) the vector 1 3 is nested (i.e. at level 1) and is added to each item of vector 
1 2: 
1 2+LEVEL(O 1)1 3 
24 3 5 


In (b) the vector 1 2 is nested (level 1) and added to each item of vector 1 3: 


1 2+LEVEL(1 0)1 3 
23 45 


The operator LEVEL might be written 


Co] Z+L(P LEVEL Q)R a P is a function, Q indicates depth 
C1] »L1 IF O#0NC'L' a branch if dyadic 

[2] +0 Z<«(P MONLEV Q)R_ a P monadic 
C3] L1:Z«L(P DYALEV Q)R_ a P dyadic 


where MONLEV and DYALEV deal with the monadic and dyadic cases respec- 
tively. 

CO] Z+(P MONLEV Q)R a Qis a non-negative integer 

[1] +L1 IF Q2=R 

C2] +O Z+P MONLEV Q’R 

C3] L1i:*70 Z+P R 


In line 1 of DYALEV, the requested depths Q are compared with the actual 
depths of the arguments L and R - if either is lower a level of nesting is removed 
by each with, if necessary, an enclose of the other. 


<p Z+L(P DYALEV Q)R a Qa 2-item vector of non-negative integers 
C1) >(21Q<="L RICASE(0,L00)(1,L01)(2,L10)(3,L11) 


[2] LOO:+0 Z+L P R a depth reached for both L and R 
[3] L01:+0 Z¢(cL)P DYALEV Q°R a depth reached for L but not R 
C4] L10:+0 Z+L P DYALEV Q“cR- a depth reached for R but not L 
C5] L11:Z¢L P DYALEV Q"R a depth reached for neither L nor R 
[0] Z+L CASE R a L is an expression, R a vector of 2-item 


C1] Z+(L="4"R)/22"R A vectors, each is (value of L, label) 
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The next two subsections use the same nested vector T. T is used as its name 


rather than v in order to emphasize that it is to be thought of as modelling a 
tree. 


=T<(6(8 3))(1 2) 


3 

DISPLAY T T level 3 
rs | | 
| eee rr isd! rs | level 2 
| | re dtd 2d | | 
16131); v4), -ej|— O level 1 
| | Lo! | | | | I 
J be — | 6 § — 3 1— 2 level 0 
be ——_—__— 


Since every subtree extends to level 0, it is necessary to insert extra levels in the 
case of non-uniform trees. 
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5.6.3.1 LEVEL with Monadic P 


In the following illustrations the function is taken as P. 
DISPLAY OLEVEL O T 


*)) 
rc 
L 


DISPLAY $LEVEL 1 T 


DISPLAY $LEVEL 2 T 


2 
= 
[= 


DISPLAY LEVEL 3 T 


1 


| 

r> | 
618 31 1 | 
| 

| 


- 
L 
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5.6.3.2 LEVEL with Dyadic P : 


DISPLAY T 


lore OP sis! 
| | rPe— I! il oro hr ds dCi 
| | 7 110 S| | | 12 31 13 41 1 
| | ote Hl lilcateeeetiliette GL 
| Le ——_____ Le ——— | 
L 
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DISPLAY (¢1 2)+LEVEL(2 2)T 


ee een (e eigenen 0 ieee 0 ieee 
| | i7 81 | ree reo I hdd ldl2 3 13 4 
| | be | 19 101 14 SIT tp bod bot 
| | | Lard Leremd f be ———__________J | 
| | Le—___________1 | | 
[a an | 


DISPLAY 1 2+LEVEL(O 3)T 


Ot ee 0 Gees 
lhe es 1 I) ere re ids'*i|f 
lI | re—i!|idl2 3) dd ddd reas f«!tlui3s 4t od 
1} 17 19 41 - bot ttt 8 110 5] | bot | | 
1 Il Lnvamt | | Levant | | | 
| | be—————__J 1 | be— | | 
| Le —— $$ _______] ee | | 


ot 
he 0 ees 
Ne ee Ol cen 0 ee eres Be eee 
1 It re— i!:COidt c—i i!titétd) 12 31 613 4t od 
| 11719 41 1 18 110 ST Td yp bod bY 
Pot op bee pp PP be HH SC'| 
1 | be————_—$—J be | | 
| - | 
L 


Exercises 5f 


The following exercises assume that a mame is a vector of character vectors, e.g. 
NAME<«' JAMES ‘ANTHONY’ ‘LAMB‘ 


and that NAMES is a vector of eight names, viz: 
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2>NAMES 
JAMES ANTHONY LAMB 
HUGH WILLIAM JONES 
FRED SMITH 
ARTHUR WILLIAM DALY 
HAMISH MCGREGOR 
ANDREW DAVID WILLIAM MASON 
SEAN EWAN MCTAVISH 
ANDREW WILLIAM MASON 


1. For a single name, e.g. NAME define a function SHORTEN which replaces the 
forenames with a vector of initials so that the name becomes a two-item vector 
e.g. 


SHORTEN NAME 
JA LAMB 


2. Define a predicate ISw2 which returns | if the second name is WILLIAM and 
another predicate SCOTCH which returns | if the first two characters of the 
surname are MC. 


3. Print a matrix with one row per name which contains everyone’s names 
except those whose second name is WILLIAM. 


4. Print a similar matrix of names in which all except Scotsmen have their fore- 
names abbreviated to their initials. 


5. Define a function LENGTHEN to allow the printing of a matrix of everyone’s 
names in which Scotsmen have the first two characters of their surnames 
replaced by MAC. 


6. Print a matrix of names with one row per name in which all surnames are 
aligned. 
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Summary of Functions used in Chapter 5 


Section 5.2 
HTD 
DTH 


Exercises 5a 
FROMDEC 
TODEC 


Section 5.4 
PATH 
ENLIST 


Exercises 5b 
PRODUCT 
JOIN 
CHALL 
CODIFY 
MEAN 
MEDIAN 


Section 5.5.3 
SPIRAL 


Section 5.5.4 
EXPAND 


Section 5.5.6 
AD 

GRAD 
MIDPT 


Exercises 5c 
SUBMAT 
PATIN 


Section 5.6.1.2 
SOMECHAR 
FRACTNL 


Section 5.6.1.3 
LEX 


Section 5.6.1.4 
ALIKE 

ASK 

NULL 


convert hexadecimal to decimal 
convert decimal to hexadecimal 


convert to decimal from arbitrary number base 
convert to arbitrary number base from decimal 


find path to given item in a vector 
selective enlist 


description of x/ 
description of ,/ 

change all occurrences 
encrypt a character string 
mean of a numeric vector 
median of a numeric vector 


co-ordinates of spiral in Euclidean plane 


function form of expand operator 


absolute difference 
gradient of line in Euclidean co-ordinates 
midpoint of line in Euclidean co-ordinates 


returns all submatrices of a given shape in matrix 


matches a binary pattern in a binary matrix 


returns | if some character items in right argument 


returns | if right argument non-integral 


auxiliary function for writing ambi-valent operators 


returns 1 if all items in vector equal 
returns answer following prompt 
predicate is-null-vector 
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COs 
NEAR 
ALLNEAR 
NUM 


Section 5.6.2 
INTEGRAL 
DECODE 


Section 5.6.3 
CASE 


Exercises 5f 
SHORTEN 
ISW2 
SCOTCH 
LENGTHEN 
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cosine 

auxiliary function to provide stop for operator RPTUNTIL 
generalization of function NEAR 

returns | if all items in array numeric 


returns | if array numeric and all items integers 
deciphers an encrypted character string 


case Statement 


replaces names with initials 
predicate is-second-name WILLIAM 
predicate is-first-two-characters MC 
replaces MC with MAC 
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Summary of User-defined Operators in Chapter 5 


Section 5.1 
COM 

SEE 
ALONG 
TABLE 


Section 5.2 
RED 
LRED 
HEX 
HEXE 
NEXT 
CONSEC 


Exercises 5a 
BASE 
ROOTOP 


Section 5.3 
COMP 1 
COMP 2 
TRACE 


Section 5.4 
SIMPLE 


Exercises 5b 
POWER1 
POWER2 
POLISH 


Section 5.5 
UNSCAN 
UNDO 


Section 5.6 
ONLY 
ONLYS 
UNLESS 
UPTO 
DOUNTIL 
RPTUNTIL 
NEWTON 
DERIV 


commutes arguments 

dynamic trace (monadic functions) 
progresses functions left to right 
outer product of vector with itself 


reduction along axis 

reduction from left along axis 
hexadecimal arithmetic 

HEX each | 

joins matrices of non-compatible shapes 
indices of start points of sequences 


arithmetic in arbitrary base 
pth. root 


function composition: L P Q R 
function composition: P L Q R 
dynamic trace (ambi-valent functions) 


makes non-pervasive functions penetrate to simple items 


function to the power : (L P) repeated Q times starting with R 
function to the power : (P R) repeated Q times starting with L 
polishes a matrix by subtracting from rows and columns 


reverses scan using R P L 
reverses Scan using L P R 


function executed only for given index 

function executed only for given indices 

function applied to items unless they satisfy predicate 
function applied item by item until value found in argument 
function applied without feedback 

function applied with feedback 

root-finding by Newton-Raphson iteration 

derivative of function 
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PDERIV 
FIT 
FILTER 
ELSE 
LEVEL 
MONLEV 
DYALEV 


partial derivatives of function coefficients 

operator for fitting non-linear functions 

processes data only if predicate true 

alternative monadic functions dependent on user condition 
applies function at given depth levels of argument(s) 
monadic case of LEVEL 

dyadic case of LEVEL 


6 
Advanced Modelling and Data Structures 


Chapter 3 interrupted the discussion of APL features in order to give some 
simple applications in which nested arrays prove their worth. This chapter per- 
forms a similar role, but the applications are now typical problems which arise 
in Operational Research and involve more sophisticated uses of the techniques 
of the previous chapters. The problem situations involved are designed to illus- 
trate how some commonly occurring data structures can be modelled in APL2, 
and how APL2 programs can be built round them in a systematic fashion. 


6.1 Trees Without Keys 


There are many different ways to build tree-like data structures of which three 
will be discussed in the first three sections of this chapter. The simplest sort of 
tree is a hierarchical one in which nested arrays are used to model subordinate 
relationships, e.g. the organization of a department: 


“a 


ABLE a me 


GAS 


DEAD EASY 


is described by the following nested array: 
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HT<*BOSS'(C"ABLE’ ‘CLOT’ ("DEAD ‘EASY') ‘FOP'(c'GAS')) 
DISPLAY HT 


IBOSS| | p——q_ qe Oo 
[ABLE] |JCLOTI! | p*—— p>—— | IFOP! 


| | 
; LJ LJ | |DEAD| |IEASY| | “<4 | 
| ee ee | J Ld | 
| Le ——$_—_____] L 
L 


Notice that it is necessary to enclose the character string when a member has 
only one subordinate. 
A Straightforward enlist is of little value ... 


€HT 
BOSSABLECLOTDEADEASYFOPGAS 


... however the selective enlist function defined in Section 5.4 can give us an 
overall namelist ... 


CO] Z¢L ENLIST R 

C1] %L1 IF L2=R 

C2] >O Z<+«+,/L ENLIST’R 
C3] Li:ZecR 


DISPLAY 1 ENLIST HT 
ey 
ae queen Wn names We aueees ee neeen 0 hae De ae Oe eee 
| |BOSS| |ABLE| |CLOT| |DEAD| |EASY| |FOP| {|GAS| | 
po by be bh i 


La 


... or Select members at either of the top two levels: 
DISPLAY 2 ENLIST HT 


ices Te cides 0 eines Oe Widens Oe ieee Oe 
|BOSS| |ABLE| |CLOT| | p— pe-—— | IFOPI 
Lt LmJ | |DEAD|] |EASY| | WU 


| 

| | 

| | 

{ | et Li | ) ed | 
j L 

L 


| 


Le——_—— 


6.2 Trees with Keys 


Another way in which a tree structure can be used to store data in a way which 
reflects its internal relationships involves using keys. 

Suppose a hierarchical data set is structured as shown in the diagram below 
in which numbers represent keys, “*” represents a subtree which is expanded at 
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the next lower level and letters of the alphabet represent data which might in 
practice be very large. 


A tree is thus a vector with an even number of items - odd numbered items are 
the unique numeric keys, even numbered items are either subtrees or data items. 
The functions to be discussed concern the structure of and navigation through 
trees and are entirely independent of the data which the trees are used to store. 
The tree sketched above could be modelled as 


TREE<1(2(5'B'6(10'E')7°C')3(°8°D'9(11°F°'12°G' )J4'A' ) 
It is worth spending a few moments to accustom oneself to the relationship 
between the drawn form of the tree and the DISPLAYed version: 

DISPLAY TREE 


| | 
| 1 | e059 OO nny | | 
| | 2 | ia | | 3 | ee COUdTC KAA Od 
| | | 5B64110 E]| 7 C | 1} 8D9 {111 F 12 Gi | - |i 
a a ee | | 
l l be be —______ | | 
l Enid | 
L 


Consider the problem of finding the path to a given key L. The nature of this 
tree structure guarantees that it is not necessary to provide for “level-breakers” 
(i.e. empty vectors - see Section 1.3.1). If it is further assumed that L must be 
present in R and that the key values do not occur in the data then the initial 
PATH algorithm of Section 5.4 is sufficient. 
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[0] Z+L PATH R;T 
C1] +L1 IF 1S=R 
[2] >O0 Z+«10 

C3] L1:T+(Le"e"R)11 identify subtree T at current depth .. 
C4] 2Z+T,L PATH T>R a .. then find path within subtree T 


D> 


L a numeric scalar, R a tree 
branch if R nested 


7 PATH TREE 
225 


Several paths may be found in one action: 


DISPLAY (8 9 10)PATH”cTREE 
tT 
ae anes On ces 0 neues 
112411 12 4 31 1224 11 | 
Pe Senne es SO 


be——_—— 


The function PATH is the inverse of pick: 


(8 9 10 PATH’ cTREE) >"cTREE 
8 9 10 


6.2.1 Finding Ancestors 


Define the ancestors of a key as those keys which precede it in a path. For a 
given key L the function ANCIN (short for “Ancestor in”) which has a very 
similar structure to PATH provides a trace of all ancestors from a given key. 


[oO] Z*L ANCIN R3T 

C1] >L1 IF*-LeR 

C2] >0 Z+«10 

C3] Li:T«(Le"e"R) 11 a identify subtree T at current depth .. 
C4] Z«+R(T-1],L ANCIN TR a .. then find ancestor within subtree T 


8 ANCIN TREE 


10 ANCIN TREE 
12 6 


DISPLAY (110) ANCIN”’cTREE 
TT 
ads Oe nes hte oe sees DO cee 0 cee cee eee ee 


| (Ol 147 Vth T1t 14 27 17 21 17 21-17 31-17 31: 11 2 61 | 
J bad bad bad bot boot Lr Lod LJ bd LI! | 


Le 
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6.2.2 Subtrees 


A subtree can be defined as the portion of a tree which is identified by a key. A 
subtree is therefore completely determined by the path to its key. Adding one to 
the lowest order item of the path produced by the PATH function yields the path 
to the subtree itself. The function STPATH produces the path to the subtree: 


[0] Z«L STPATH R 
C1] Z¢«((-pZ)41)+Z<«L PATH R 


from which the subtree itself may be obtained using pick: 


[CO] Z*+L SUBT R 
C1] Z«+(L STPATH R)°R 


Hence subtrees can be exhibited: 
DISPLAY 2 SUBT TREE 


| 5B6110 EI 7C | 

Pentre | 

Le—___ 
DISPLAY 9 SUBT TREE 

ee 

111 F 12 GI 

a | 


6.2.3 Eliminating and Swapping Subtrees 


The function CUTFROM removes the subtree associated with key L. 


[0] Z+L CUTFROM R 
C1) Z**RCOC(L STPATH R)JOR)<c10 


DISPLAY 2 CUTFROM TREE 


r 
pees? 
a 1 | 
1 121 pe i3l ———, | 4A | | 
1 | | loll t8d9im4F12611 -11 
ee ee ee oe 1 | 
| | Le——— ee | 1 | 
| | 
L 


SWAP exchanges the subtrees associated with keys L[2] and L(1): 
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C0) Zt+L SWAP R;T 

C1] Z+R 

C2) T¢«L STPATH’¢Z 

C3] Z¢((OT)2°¢Z)¢Ta "eZ 


DISPLAY 7 3 SWAP TREE 


| 
| | | 
| 2 | r—— pe It CHAI I 
| | 5B6 110 El 7 | r——— “lI! - -|11 
| | ~ L+—_— 18D9{111F 12GIi I | | | 
| | | - L+——_—_—__—_/ | | | | 
| | Le ——__________] | | | 
| be I | 

| 


6.3 Binary Trees 


This section discusses another form of tree structure in which there are no Keys 
but instead the structure depends on properties of the data, together with the 
order in which it is entered into the tree. A tree consists of three components, a 
root, a left subtree, and a right subtree. Data resides only at the roots of trees 
and subtrees, and as in the previous section it can always be made into a scalar 
however complex the actual structure of the data which resides there. The left 
and right subtrees may be empty, and it is natural to represent empty trees as 
10. Subtrees repeat the structure of trees so that a typical three-level tree is: 


P 
T 
oo 


0 
10 


10 10 


A simple binary tree operation involves storing names which are ordered alpha- 
betically The first name is entered at the root, the next name goes to the left or 
right depending on whether it comes before or after the root word in the 
alphabet. Subsequent names enter at the root and traverse the tree going left or 
right at every subtree root until an empty subtree is found where the incoming 
name can be inserted. Thus if FRED, ANNE and DAVID are to be entered in 
that order the resulting tree is 
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FRED 


ANNE 


DAVID 
If they are entered in the reverse order the tree is 
DAVID 


ANNE FRED 


Basic operations on binary trees are get-root (modelled by 2>TREE), get-left- 
subtree (TREE), get-right-subtree (3>TREE), and is-empty (O=pTREE). At a sec- 
ondary function level, useful functions are those which carry out operations like 
insert, search, make-tree, count-leaves, count-comparisons and is-equivalent. 

Since binary trees are recursively defined, it is not surprising to find that 
recursive functions are a natural way of building up secondary functions. 

First consider binary trees which have simple numeric scalars as the root 
values. The function INS implements an algorithm for inserting an item into a 
tree which uses “multi-level recursion,” that is INS calls AINS which calls 
AAINS which calls INS. 

To insert an item L into a tree R first test to see whether R is empty, in which 
case the result is (10)L(10): 


[0] Z+L INS R a L is item, R is tree 
C1] >L1 IF O=pR aA return (10)L(10) if tree empty 
C2] *O Z*L AINS R a else ... 


[3] L1:2¢R LR 


AINS deals with the non-empty case and tests first whether L matches the root, 
in which case there is nothing to do. 


[0] Z+L AINS R 
C1] >L1 IF L=2>R a return tree unchanged if L matches root 


[2] +O Z¢«L AAINS R a else ... 
[3] L1:Z€R 


AAINS deals with the general case where L does not match the root in which 
case L is inserted on the left or right depending on whether it is less than or 
greater than the root: 


[0] Z¢L AAINS R 

C1] 7L1 IF L>2>R a go right if L>root 
[2] *0 Z¢«(cL INS*R),14¥R_ a else go left 

C3] L1:Z«(24*R),cL INS*toOR 


202 APL2 IN DEPTH 


The INS function also allows a binary tree to be constructed from scratch by 
successive insertions using a right argument of 10s. As in the previous section it 
is worth spending a few moments observing the relationship between the tree 
diagrams given above and the DISPLAYed versions. 


TR1«6 INS 10 
DISPLAY TR1 


TR1i«8 INS TR1 
DISPLAY TR1 


eee ay 
| ey eo SCid 
| 101 6 | pe, w&li 
| bw | 101 8 1ol | | 
| j Lwd Lod | | 
| Le—________! | 
ee | 


TR1¢7.5 INS 9 INS TR1 
DISPLAY TR1 


as | 
my oe 
| 101 6 | p—_—— KG “|! |! 
J bt ot pe re | 8 1 ey eli 
| | | JO| 7.5 JOl | | 101 9 |O| | I I 
| } | Lad LoJ | j Lwd LvJ | | | 
| | L-——____._] be —__—_____ [ | 
be | 
| 


The above code suggests a further recursive function which converts a vector 
into a binary tree: 


CO) Z*MAKET R 


C1] *L1 IF O=p,R a if empty argument return empty tree 
[2] >O0 Z+«(+R) INS MAKET 1¥R_ a else insert first into tree 
A made from remainder 


[3] L1:Z«10 


so that 
TR1*MAKET 7.5 9 8 6 


also constructs the tree shown in the last example. 
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6.3.1 Trees with non-simple Scalar Nodes 


One of the strengths of APL2 is that if the underlying structure is now changed 
to one of arbitrary complexity the upgraded code for the INS and ISIN func- 
tion sequences is virtually unaltered. To be specific, suppose that the node items 
are identified by keys which are taken to be the first item of nested vectors such 
as V61, V62, and V63 below. 


DISPLAY V61 


| reso | 
| 1 |[BLACK| +11 150] 1250 | 
| L—————J_ {15 200| | 
| 129 50| | 
| Ly ——————} | 
L 


DISPLAY V62 
Pe 
[ oro! 
| 2 |WHITE! [Ol Oo | 
| Ld 6h | 


Le—$——$__________I 


DISPLAY V63 
p 


WwW 


/ | 
| 

Ls} 7 16 150] + 9 25] | 
| enn $18 =-1254~=«| 
| | 
L 


| 
| 
| 
| 
| 
| 
Ma nl 


The only change necessary is to the function AAINS where firsts must be added 
to the conditional clause: 


C1] *L1 IF (tL) >t25R 


A tree to store the three nested arrays P, Q and R is constructed by: 
TR2«MAKET V61 V62 V63 


The resulting tree TR2 has the shape 


V62 


V6l 
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6.3.2 Searching Binary Trees 


A function sequence which tests whether or not an item is present in a tree has 
an almost identical recursive structure to that of the functions INS, AINS, and 
AAINS used for inserting items into a tree. 


Co] Z+L ISIN R a L is item, R is tree 
[1] »L1 IF O=pR a return 10 for empty tree 
C2] 70 Z«L AISIN R a else ... 


C3] L1:2¢0 


CO] Z*L AISIN R 

C1] *L1 IF L=22R a see if root matches 
[2] >O Z«¢L AAISIN R a else... 

C3] L1:Z«1 


[0] 2Z+L AAISIN R 

C1] >L1 IF (*L)>42>R a try right if L>root 
[2] 70 Z+L ISIN+R a else go left 

[3] L1:Z+L ISIN+tOR 


7.5 ISIN TR1 
1 

7 8 9 ISIN’ cTR1 
01 1 

(V61 V62 15) ISIN’ cTR2 
110 


Of course, if the data items are simple numeric scalars, ISIN can be achieved 
much more simply by LeeR, e.g. 


7 8 9€ETRI1 
011 


Depth-first scan, that is a traverse of the tree which penetrates each path as 
deeply as possible into the tree before retreating and fanning out to other nodes, 
is also achieved trivially through enlist: 


é€TR1 
67.58 9 


and the number of leaves in a tree by 


péTR1 
4 


6.3.3 Selective Enlist with Binary Trees 


Walking the tree TR2 in a depth-first fashion poses a problem, because enlist is 
once again too heavy-handed for the job, and steam rollers everything down to 
scalar level: 
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1 BLACK 11 150 15 200 29 50 1250 2 WHITE O 3 GRAY 6 150 9 25 


€TR2 
18 125 300 

pETR2Z 
32 


The selective enlist function ENLIST defined in Section 5.4 provides the 
ability to scan the items in TR2 in depth-first fashion while retaining the simple 
(i.e. non-nested) structures, namely character and numeric arrays: 


DISPLAY 8t1 ENLIST TR2 


ae 


tg en es Oe rey 

| 10] 1 IBLACK] ¥11 150] 1250 |O| 2 
J bt te—J |15 2001 Lv 

| [29 50| 

| a 


Pe 
| WHITE | 
Ld 


Lg a 


DISPLAY 8¥1 ENLIST TR2 


a od 0d gs Oe es Oe 


| 10] O JOI| 3 IGRAY| 16 150| + 9 


| eS | 


6.3.4 Data-equivalent Binary Trees 


re 
25! 300 |0 


j Ld Lod cn Ree Be) — 118 125| Lo 


Different binary trees are data-equivalent if they contain the same data but in a 
different tree structure. The differences arise only on account of the items being 


inserted in different orders. For example: 
DISPLAY MAKET 4 5 6 


| ee re, | 
| | ~-xI4 re, | 6 101 | 
| | od pe re, 1 5 10; | bed | 
| | | Ol 4 Tol | Lat | | 
I ft [ bed Lwd | | | 
| | be——————__— | | 
| bte—————__-____ | 


7 a resis 
ee ee ee 
| 1 101 4 [Ol | | 101 6 1Ol | | 
} | Ld Lwt | j Lwd Lot oy | 
| Le ——____] Le ———$__] | 


whose corresponding tree structures are 
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and 


4 6 


The (10)s representing empty left and right sub-trees are generated by line 
C3] of MAKET. 
Simple enlist is adequate to compare trees for data-equivalence, for example: 


(€MAKET 4 5 6)=€MAKET 6 4 5 


This test applies equally to trees with complex underlying structure: 
(€MAKET V61 V62 V63)=€MAKET V62 V63 V61 


6.3.5 Alternative Comparisons 


If the root items are not numeric scalars it is necessary to replace > in AAINS 
and AAISIN with a function GI which determines in context an appropriate 
definition of “is greater than.” For example, if the root items are character- 
String vectors an appropriate GT function which exploits dyadic grade-up is 


CO] Z¢+L GT R 

C1] >L1 IF O#*t0pL a use collating sequence if L non-numeric 
[2] 20 Z+(4*L)>4R a else use > 

C3] L1:Z¢>/QAVARL R a test for L before R in alphabetic order 


Only some relatively small details of the AAINS and AAISIN functions need 
be changed. If the right argument of MAKET has only one name, this must be 
enclosed. 


[0] Z*L AAIns R 

C1] °L1 IF(4L)GT 22R 
C2] >O Ze(cL InstR),14R 
[3] L1:Z¢«(24*R),cL InstOR 


[CO] Z+L AAIsin R 
C1] 2L1 IF(t*L)JGTI 2>R 
[2] >O Z«L IsintR 
[3] L1:Z«L IsintOR 
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These functions together with Ins, Isin, AIns, AIsin, and Maket suitably 
adapted cover all the three types of data which have been considered. 


TR3¢«*FRED* Ins 10 
DISPLAY TR3 


= 


r 
a od be aes ee 
| |O| |FRED| [0] | 
pba Ded tad | 
L 


¢—_———$—$—______] 


DISPLAY TR3¢«Maket ‘DAVID’ ‘ANN ‘FRED' 
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Exercises 6a 


1. Amend the Isin sequence of functions so that Isin counts the number of 
comparisons which are made in searching for L. 


2. Write a function sequence SUB, ASUB, AASUB, similar to the ISIN sequence, 
which obtains the subtree in R at node L. 
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6.4 Networks 


This section considers closed structures with arcs and nodes. Two nodes can be 
identified as source and sink respectively, and the other nodes are intermediate 
nodes. This structure typically models a situation where something like a fluid or 
an electric current flows from the source to the sink. Flow may only occur in 
one direction along each arc and the arcs also have capacity constraints, that is 
each has a maximum flow which it can sustain. A frequent objective is to maxi- 
mize the total overall flow from source to sink, so that for example the 
maximum amount of oil is conveyed through a system of pipes from the oil well 
to the refinery. 

The so-called PERT diagrams form another family of networks in which arcs 
represent activities. Numbers on the arcs represent the times to perform them, 
and the nodes are states achieved as the result of the completion of the activities 
represented by their incoming arcs. 

A specimen network is the following where the values marked on the arcs are 
the maximum flows along them: 


Such a network may be represented by an N by N matrix where N is the 
number of nodes, and the value in the cell (r,c) is the directed distance between 
node r and node c. No connection between the nodes r and c is represented by 
a 0 in the cell (r,c). Thus the matrix representing the above network is 


NET 
09140 0 0 0 
00 6711 0 QO 
00 02 019 90 
00 0016 8 90 
00 00 0 0O 20 
00 0012 0 11 
00 00 0 0 90 
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Arcs are represented by non-zero entries, and it may be assumed without loss of 
generality that for networks with a single source and a single sink, the former is 
node I, and the latter the node represented by the last row/column. Thus the 
first column and the last row of such a network matrix must consist of all zeros. 

Typically network matrices are sparse and an alternative space-saving repre- 
sentation of such matrices is a two-item nested vector, the first item of which is 
a binary matrix of node connectivities NETC, and the second item is a vector 
NETV of the values of the non-zero items in row-major order. The above 
network could then be represented by the nested vector 


NETC NETV 
0110000 9146711 219 16 8 20 12 11 
0011100 
000101 0 
0000110 
000000 1 
000010 1 
0000000 


Conversion to the NET form is achieved by FULNET NETC NETV where FULNET 
1S 


CO) Z*FULNET R 


C1] Z2ttR 
C2] ((,2)/,2)¢22R 


6.4.1 The Vector of Paths through a network 


Consider the problem of determining all paths from the source node to the sink 
node. Assume that L is a binary connectivity matrix such as NETC representing 
a network without loops, and that the items of R represent node numbers. These 


paths can be determined by the pair of linked recursive functions OUTFROM and 
ROOT: 


[OJ Z+L OUTFROM R 


C1] +L1 IF O=p,R a branch if list of nodes empty 
[2] »0 Z«(L ROOT*R),L OUTFROM 1¥Ra_ process first node and recurse 
[3] L1:Z¢R a stopping action 

[0] ZL ROOT R;T 

C1] -2L1 IFev/T<LCR3] a branch if all-zero row found 
[2] *O Z+R,“L OUTFROM T/itpL a join current node to all lower 


C3] L1:Z«rR a stopping action 
Line [2] of OUTFROM says 


(L ROOT*4R), a find all the paths which proceed downwards from 
the first item in R, and join them on to... 
L OUTFROM 14R_ a... ditto for the rest of R 


ROOT then tests whether the all-zero row (i.e. the sink) has been found, and if 
not joins the current node R to each of the trees which spread out from the 
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nodes to which R is connected. OUTFROM thus corresponds to processing “along” 
a vector of nodes, ROOT to processing “down” from a single node. 


»L1OJNETC OUTFROM 1 
4 7 

5 7 
7 
7 


NU nNnN Ww OO Ww 


WWWWWNNNNNNN ND VN 
NN OS 
“ 


mee ek ee ed ek ee od dd kk 
OaorFrLEUFLELEWwWWwW WwW Ww 
NU nononnoanuwnaondf £ 


The ,£10] transforms the vector of paths to a one-column matrix which makes 
it easier to read. 

If a network has loops, it is necessary to carry into the recursion a list of 
nodes encountered so far. In the following version of OUTFROM and ROOT, L is a 
two-item vector where the first item is the enclosure of the connectivity matrix, 
e.g. NETC, and the second item is the list of nodes encountered so far. 


[OJ Z¢*L OUTFROML R 

C1) >L1 IF O=9,R 

[2] >O0 2Z<¢«((L,4R)ROOTL*R),L OUTFROML 1¥R 
C3] L1:Z¢«R 


[OJ Z2¢L ROOTL R3T 

C1] °L1 IFev/T¢RJC1)4L 

[2] >O Z¢«R,°L OUTFROML(T/itptL)~-10L 
C3] L1:Z¢R 


The without in the second line of ROOTL inhibits the processing of nodes which 
have already been visited. 

For networks without loops, such as NETC, the only difference between 
OUTFROM and OUTFROML is that the left argument of the latter must be 
enclosed, that is 


(cCNETC)OUTFROML 1 


is equivalent to 
NETC OUTFROM 1 


An example of a network with loops is 
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for which the connectivity matrix NETL and the result of OUTFROML are the fol- 
lowing: 


o-02 0 
oooo-> 
ooo 0 
o- 008 


(cNETL)OUTFROML 1 
12345 1235 1245 


6.4.2 Parallel computation along paths 


The function Pv (Path to Value) converts a path R into a vector of arc values 
lying on the path. The argument L is the matrix representation of a network. 


CO] 2+L PV R 
C1) Z+(2,/R) 0 °cL 


NET PV 1 2 3 
9 6 


The expression +/NET PV 1 2 3 4 5 6 7 thus adds arc values along the 
first path in NETC OUTFROM 1. 

Another way of looking at this problem is to extend the functions OUTFROML 
and ROOTL to obtain ADDFROM and ADDROOT in which the addition of values 
along the arcs takes place as the arcs are encountered : 


212 APL2 IN DEPTH 


CO] Z*L ADDFROM R 

C1] *L1 IF O=p,R 

C2] 20 Z¢(L ADDROOTt*R),cL ADDFROM 14R 
C3] L1:2¢R 


[0] Z¢L ADDROOT R;T 

C1] °L1 IF*v/T«RJC1JL40 

[2] >O0 Z<«((R,°T)J°¢L)+(¢L)ADDFROM’T<eT/itpL 
C3] L1:Z<«0 


€NET ADDFROM 1 
53 57 36 66 45 52 56 35 40 52 56 35 65 44 


Addition could be replaced by other scalar dyadic functions, e.g. the minimum 
function. An alternative to defining another pair of functions is to convert 
ADDFROM and ADDROOT to operators, thereby generalizing the function + in the 
middle of line [2] of ADDROOT. This amendment also requires adjustment to 
line [3] of ADDROOT to contain the identity item of the function P. 


CO] Z¢+L(P FROM)R 

C1] >L1 IF O=p,R 

C2] >O Z¢(L(P FROOT)*R),¢c(P FROM)1+VR 
C3] Li:Z¢R 


[0] Z2¢L(P FROOT)IR;sT 

C1] °L1 IFev/T«RJ[1]L40 

C2) >O Ze«((R, TIJ°eLIP(ecL)(P FROM) “TeT/itpL 
[3] L1:Z«P/i0 


NET 
09140 0 0 0 
00 6711 0 90 
00 02 019 0 
00 0016 8 90 
00 00 0 0 20 
00 0012 0 11 
00 00 0 0 0 


€NET +FROM 1 
53 57 36 66 45 52 56 35 40 52 56 35 65 44 
€NET LFROM 1 
222667779222 12 11 


The minimum of the sums along all paths is the shortest path-length through 
the network, and the maximum of these sums is the longest path-length, which 
in the case of a PERT network is that of the critical path. There is an analogy 
here with inner products, in that one function is performed along all paths, and 
the reduction of a second function provides a quantity of interest. This leads to 
the definition of an operator NIP standing for “Network Inner Product.” 


CO] Z2*+(P NIP Q)R 
C1] Z*+P/éER(Q FROM) 1 


Thus 
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LNIP+NET 
35 


is the length of the shortest path of NET, and 


[NIP+NET 
66 


is the length of the longest/critical path of NET. Assuming that node | is the 
source, the network may be taken as the single argument of the operator ROUTE: 


[CO] Z+(P ROUTE)R 
C1] Z+((R#0)OUTFROM 1)((Z=P/Z)/1pZ¢eR+FROM 1] 


LROUTE NET 
12467 13467 


is then the shortest path or paths of NET, and 


[ROUTE NET 
123657 


is the longest/critical path or paths of NET. 


6.4.3 Assignment of Flows 


Suppose that the values on the arcs of a network matrix represent non-negative 
Capacities and that as flow is sent down a path from source to sink the capaci- 
ties on the component arcs in the route are reduced by the amount of the flow. 
As before it is assumed that the source and sink nodes are the first and last 
nodes respectively. First MSUB (standing for “Matrix Subtract”) is constructed 
which has a network matrix as its left argument and whose right argument is a 
two-item vector, the first item of which is the row and column indices of an arc 
and the second an amount to be subtracted from the capacity of that arc. For 
example NET and the matrix resulting from subtracting 2 from NET(132] are 
shown below. 


NET (NET MSUB(1 2)2) 
09140 0 0 0 07140 0 0 0 
00 6711 0 0 00 6711 0 90 
00 02 019 O 00 02 019 0 
00 0016 8 0 00 0016 8 0 
00 00 0 0 20 00 00 0 0 20 
00 0012 0 11 00 0012 0 11 
00 00 0 0 0 00 00 0 0 0 


Using the technique of CHANGE in Section 1.4.2 leads to 


[0] Z*L MSUB R 
C1) (Z0L)<«((Z«4*R)0L)-25R 
C2] ZL 


The function PSUB standing for “Path Subtract” extends this to an entire path. 
R is the path catenated to the amount to be subtracted. 
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CO] Z*L PSUB R 

C1) >L1 IF 1=p*4R 

C2) 20 Z+(L MSUB(¢24¢4R),2>R)PSUB 1 OV'R 
C3] L1:Z¢L 


so to subtract 2 from the path 1 2 3 4 S 7 use as right argument the 
path/amount vector (1 2 3 4 5 7)2: 


NET PSUB(1 2 3 4 § 7)2 


07140 0 0 0 
00 4711 0 0 
00 00 019 90 
00 0014 8 0 
00 00 0 0 18 
00 0012 0 11 
00 00 0 0 0 


The function FLUX has as its right argument a vector of paths, and progressively 
subtracts the maximum possible flow along each path in turn. The maximum 
flow along any path is the minimum capacity of the arcs in that path. 


CO] Z*+L FLUX R 

C1] »~L1 IF O=pR 

C2] >~O Z+(L PSUB(¢c4*R),L/L PV*R) FLUX 14R 
C3] Li:Z¢L 


NET FLUX NETC OUTFROM 1 
0000 000 
00041100 
0000 010 
0000118 0 
0000 00 3 
0000 00 5 
0000 000 


Finally the function ALLOC combines the roles of OUTFROM in detecting paths, 
and FLUX in sending flow along them and also attempts to maximize the total 
flow through the network. It is known that the objective of achieving a 
maximum network flow is best promoted by sending flow as far as possible 
along paths with small numbers of arcs. Therefore the vector of paths corre- 
sponding to a network should thus be ordered from least to greatest numbers of 
arcs, which is achieved by the function UPG. 
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CO] Z*ALLOC R 
C1] Z2¢R FLUX UPG(R#0)OUTFROM 1 


CO] Z*UPG R 
C1] Z¢R[LAE€p R] 


ALLOC NET 
0000 000 
0067 200 
0000 070 
0000 14 8 O 
0000 00 8 
00001100 
0000 000 


6.4.4 Minimum Spanning Tree 


An undirected network is one in which the arcs do not have directions associ- 
ated with them and thus its matrix representation must be symmetric. A 
minimum spanning tree of such a network is a tree structure which includes all 
the nodes and for which the sum of total arc values is a minimum. This might 
for example be of interest to an oil prospecting company anxious to minimize 
the total length of pipeline needed to connect a given set of oil wells. Such a 
structure may not /ook like a tree in nature or in the sense of the previous dia- 
grams, however all that is required to give the tree property to an assembly of 
arcs and nodes is that it be connected, and that the number of arcs is one less 
than the number of nodes. NET may again be used as an example, but since it 
now represents a graph with undirected nodes it must be made symmetric by 


SYMNET¢NET+QNET 
SYMNET 
14 0 0 0O 


To develop a minimum spanning tree algorithm, a tree is modelled as a vector of 
two-item vectors representing arcs, each of which consists of a left and a right 
node. If the network is the left argument L of a function MST which returns the 
minimum spanning tree as a vector of arcs, then the number of items in the 
result of MST must be ~1+*pL by the definition of a tree. 

The principle of the algorithm is that at any intermediate stage of con- 
Structing the tree, the nodes fall into two disjoint sets, U which includes the 
nodes used so far, and V those not used so far. The next arc to be added to the 
tree is the lowest-value arc (LVA) connecting these two sets, or the first such arc 
if there are several of equal value. The right node of the lowest-value arc is the 
new node to be added to the set U and removed from the set V. 
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Assume that a function LVA has been defined which produces the lowest- 
value arc for a network L and a node-list R corresponding to the set U. The 
revised tree after one step of the process is 


(cT«L LVA R),_ a the new arc (enclosed) joined to... 


L MST a... the algorithm applied to ... 
R a... the previous node list with ... 
2147 a... the right node of LVA appended. 


The process starts with any node and stops when (pR)=*tpL, 1e all the nodes 
are included in the node list. The complete function is: 


CO] Z+L MST R;sT 

C1) >L1 IF (pR)J=toL 

C2] >~O Z<«(cT),L MST R,1+T«L LVA R 
C3] L1:Z2¢«10 


The problem has been reduced to that of calculating the LVA which in turn con- 
sists of finding the row and column indices of the first occurrence of the 
minimum non-zero value (MNZ) in the set L[UsvJ. This is given by 


4ONES T=MNZ/,T<«L(U3;V) 
where ONES is the auxiliary function defined in Section 4.2.1, which returns a 


vector of co-ordinate pairs corresponding to the position of the 1s in a binary 
matrix: 


CO] Z*ONES R 
C1] Zec[1]1+(pR)JT 14+(,R)/1x/pR 


and MNZ returns LLR unless either is zero in which case it returns the other. 


CO) Z¢L MNZ R 

C1) *L1 IF v/O=L,R a branch if either L or R is zero 
C2] >0O Z*LLR 

C3] L1:Z«L+R 


These lead to the definition of LVA as 


[0] Z¢+L LVA R3T3U3V 
C1] Z¢L(U3 Ve(itpL) ~UeeR] 
C2] Z¢(*ONES Z=MNZ/,Z)0°U V 


The minimum spanning tree of SYMNET is then 


SYMNET MST 1 
12 23 34 46 25 67 


The value of MST, i.e. the sum of the values of its constituent arcs, 1s 
CO] Z*MSTV R 
C1] Z¢+/(R MST 1)0°cCR 


MSTV SYMNET 
47 
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6.4.5 Precedence and Reachability 


A further problem which might arise in modelling the sort of networks which 
have been the subject of the preceding Sections is finding how far it is possible 
to travel in a given number of steps. 


For a graph such as the above which may be cyclic and contain self-looping 
nodes, and whose connectivity matrix 1s L, the precedence matrix answers the 
question what nodes may be reached in exactly R steps, where R is a non- 
negative integer. The reachability matrix answers the question what nodes may 
be reached in R Steps or less. The precedence matrix is an extension of the 
connectivity matrix. The two are equivalent when R = 1, and R = O denotes 
the identity matrix. Calculation of the nodes which can be reached at the next 
step provides in line [2] of the function PREC an application of the v.a inner 
product. 


[0] Z2¢L PREC R 

C1] >L1 IF R=0 

[2] >O Z«(L PREC R-1)V.AL 
C3] L1:2¢IDteL 


[Oo] Z*ID R3T 
C1] Z*To ,=T€¢iR 


For one node to be reachable from another in R steps requires either R-step pre- 
cedence or that reachability has already been achieved in fewer steps, hence line 
[2] of REACH: 


[0] Z+L REACH R 

C1] *L1 IF R=0 

C2] >O Z«(L PREC R)VL REACH R-1 
C3] L1:Z¢IDteL 


The matrix CM is the connectivity matrix of the above graph and is used to illus- 
trate the calculation of precedence and reachability matrices. 
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CM 
0000 1 
10000 
01000 
0001 1 
01000 

CM PREC 1 CM REACH 1 
0000 1 1000 1 
10000 11000 
01000 01100 
0001 1 0001 1 
01000 0100 1 

CM PREC 2 CM REACH 2 
01000 11001 
0000 1 1100 1 
10000 11100 
0101 1 0101 1 
10000 11001 

CM PREC 3 CM REACH 3 
10000 1100 1 
01000 1100 1 
0000 1 1110 1 
1101 1 1101 1 
0000 1 1100 1 


Exercises 6b 


1. Write a function MAKENET to construct a connectivity matrix of dimensions 
given by the left argument for a vector of co-ordinate vectors, e.g. 


4 4 MAKENET (1 2)(02 2)(03 1903 4) 


should return 
0100 


e) 
1 
e) 
2. For the connectivity matrix NETL how would use APL2 to answer the 
questions: 


(a) To how many nodes are there routes from nodes 1,2,3 and 4? 
(b) How many nodes can be reached in exactly three steps from node 3? 


3. How would you display the minimum spanning tree of SYMNET in Section 
6.4.4 with the values of the arcs displayed beneath them thus: 


1223 34 46 25 67 
9 6 2 8 11 11 ? 
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he table below gives the distances between each of a set of five towns: 


4. The 
067 
605 2 
7 5 0 
92 1 
3 8 


— 
OW @ fF WwW 


£ 


What is the minimum length of a road network which ensures that every town is 
reachable from every other? 
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Summary of Operations used in Chapter 6 


Trees 


Section 6.2 
PATH 


Section 6.2.1 
ANCIN 


Section 6.2.2 
SUBT 
STPATH 


Section 6.2.3 
CUTFROM 
SWAP 


Section 6.3 
INS 
MAKET 


Section 6.3.2 
ISIN 


Section 6.3.5 
GT 


Exercises 6a 
SUB 


Networks 


Section 6.4 
FULNET 


Section 6.4.1 
OUTFROM 
ROOT 
OUTFROML 
ROOTL 


path to item in tree with keys 
ancestors of item in tree with keys 


subtree determined by given key 
path to subtree 


removes subtree 
exchanges subtrees 


inserts in binary tree 
makes binary tree 


tests for item in binary tree 
generalized “greater than” 


finds subtree at given node in binary tree 


network conversion from nested vector to simple matrix 


all paths from a vector of nodes 

all paths from a given node 

enhancement of OUTFROM to deal with loops 
enhancement of ROOT to deal with loops 


6. Advanced Modelling and Data Structures 221 


Section 6.4.2 
PV 
ADDFROM 
ADDROOT 
FROM 
FROOT 
NIP 
ROUTE 


Section 6.4.3 
MSUB 
PSUB 
FLUX 
ALLOC 
UPG 


Section 6.4.4 
MST 

ONES 

MNZ 

LVA 

MSTV 


Section 6.4.5 
PREC 
REACH 

ID 


Exercises 6b 
MAKENET 


converts path to vector of values along arcs 

sums along all paths from a vector of nodes 

Sums along paths from given node 

Operator extension of ADDFROM 

operator extension of ADDROOT 

“network inner product” applicable to e.g. PERT network 
path satisfying e.g. shortest or longest path criterion 


Subtract value from single item in matrix 

subtract value from each arc in path 

subtracts values progressively from vector of paths 
allocates maximum flow through network 

sorts paths in order of increasing length 


minimum spanning tree 

co-ordinate pairs of 1s in binary matrix 
minimum non-zero value of a pair of scalars 
lowest value arc connecting two sets of nodes 
value of minimum spanning tree 


precedence matrix for a directed graph 
reachability matrix for a directed graph 
identity matrix 


constructs connectivity matrix from vector of co-ordinates 


Appendix A. Solutions to Exercises 


Solutions 1a 


1. The expressions are DISPLAYed below, in each case followed by the proto- 
type. 
a. *"ABC’ 17.6 

rs ee ee 

| eo lot 

| [ABC] 17.6 | Ceo 

j 4 | 

Le——__J 


b. 2 3p2 2 4 
‘oe | 

W224 a) 
12 2 4| 
LI 

C. 23492 2 4 


¥¥2 2 4 2| 0 


d. 2 4p*ABC® *" § * *6'°(12)010)9 6 


Pes rm 
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e. ‘A’ 7.5 5 ‘*S° 
rs 

IA 7.5 5 S| 
re | - 


f. O 395 
r— 1 
00 O O| ) 
L.—__I 


g. O 3p'A’ 
re 


j. O 3p(5 'A')4 
rs rom 
in deen Oe een ee 0 
| 10 | 10 | 10 | | bee 
p bed Lye by | 
Le——_____ 


k. O 3p(°B'6)(5'A') 
es Ol ee 
ora rsr !lClUdOCD 
| | Off oft off. bee 


j Lem d Lyd ly | 
ee 


l. O Op('B'6)(5'A') 
ot fe 
0 Pp | oO 
1 | op po bee 
| b+e—J | 
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m. O 2 Op('B'6)(5°A') 
| ree 
Ov | [| Ol 
lb! | O1 | 
[| t+—4 | 
ll po i 
fl | Of | 
[} b+—t | 
LLe—____] 


2. Opc2pn and cO 2pn respectively, where n is any numeric scalar. 


3. CO] Z2t*DIS R 
C1] "SHAPE: '(pR) ‘DEPTH: ° (=R) 
C2] Z*DISPLAY R 


4. The value parts of solutions are given in a condensed form of the DISPLAY 
format 


Shape depth 
a. (2 3 4)(6 7) 2 2 
b. (€(€4 5)3)C*APL')((4 5)3) 3 3 


5. (a) is the item-wise product of two two-item vectors; (b) is a three-item vector 
in which Bx5 is sandwiched between two occurrences of A. 


6. (i) d and i (ii) e and i 


7. It gives a DOMAIN ERROR because (pA) 1 is not simple and therefore is not a 
valid left argument to p. 


8. (1) All the same. 


(it) (c) is in general different, (a) and (b) are the same. 
(iii) (a) and (c) are the same, (b) is different. 


9. a. The real part of the product of a complex number and its conjugate is the 
square of the magnitude of the argument. 


b. [0] Z*QUAD R;T 
C1] Z¢-(ROL2)+T,-TeC (RD 2)*2)-x/4,R01 3])*.5)%2xR[1] 


Q9 11°.,0QUAD 1 1 1 
~0.5 “0.86603 
~0.5 0.86603 


U*QUAD 1 233 4J°1 


Use decode to check the solutions, e.g. 


UCL1J]i1 233 4J°1 
8.8818E 16J°2.2204E 16 
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Solutions 1b 


1. (1) No 
(ii) (b),(c),(d) and (f) are the same, namely the three-item depth two vector 
(1 2)(10 20)(3 4). 
(a) is the simple vector 1 2 10 20 3 4, (e) is the three-item depth three 
vector 
(e1 2)(¢€10 20)(¢3 4). 


2. (a) has five items, (b) has four. 


3. For conciseness answers are given in a condensed notation in which A is to be 
read as the array 2 3p16. 


a. (A) 3 d. (10xA)30 
b. (-A)73 e. (A 3) ((2xA)6) ((3xA)9) 
C. (A+1)5 f. (Ax2)9 


4. 2 3e¢3 Sp* APL2 IS GREAT' 


Or 2 3p¢>* APL2" ° IS* ‘GREAT 


5. (Z Xe""(13) 
DISPLAY Z+Z,cX 
re 
| — | 
| 
| bvn———J | 
Le——_$_____] 
DISPLAY Z+Z,cX 


(Z X)e*"C13) 
DISPLAY Z¢Z X 


[pee Or i! 
ll pes reo i! 11 2 3 
LE bb da 2 3) | bod | 
ee ee | 
| be ——$—$ $$ ___} l 
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None of the four answers are the same. 


6. (a) and (c) are the same, namely 


(b) and (d) are the same, namely 


rere 


Le—__J 


7. (a) is the simple vector 13. 

(b) is a simple two by three mixed matrix, with a first row of blanks and a 
second row 13. 

(c) is a simple one-item vector consisting of the character ‘X'. 

(d) is an empty matrix of shape 2 0. (Z ‘X* is a two-item vector and the 
shape component of its first item is 0, which is brought from the inner to the 
outer structure.) 


8. a.,'ABC* ‘DE' is a two-item vector of character strings, 
€'ABC’ ‘DE' Is a five-item vector ‘ABCDE'. 


b. »(1 3p*ABC')*DE' is a two-item vector, whose first item is a character 
matrix and whose second is a character string. 
€(1 3p'ABC')'DE' is identical to €*ABC' 'DE'. 


9. a. Calendar for month - weeks horizontal: 


[0] Z*SD MONTH DY;HD 

C1] eaDY: number of days in month 

[2] aSD: integer indicating start day of month 

C3] HD¢«+"'SUN* ‘MON’ ‘TUE ‘WED' ‘THU’ ‘FRI' ‘SAT' 
C4) Z¢7 7pHD,(SDp* '),(01DY),20p° ' 


b. Calendar for month - weeks vertical: 
23 MONTH 31 


SUN 5 12 19 26 
MON 6 13 20 27 
TUE 7 14 21 28 
WED 1 8 15 22 29 
THU 2 9 16 23 30 


FRI 3 10 17 24 31 
SAT 4 11 18 25 


c. Calendar for as a character array: 
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33 MONTH 31 
SUN MON TUE WED THU FRI SAT 
1 2 3 4 
5 6 7 8 9 10 11 
12 13 14 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 = 31 


Notice that formatting results in a decrease in depth: 


="(3 MONTH 31)(33 MONTH 31) 
2 1 


d. Vector of start days for each month: 


CO} Z*LEAP START_DAY JAN;D 
C1] D«DAYS+12%t0, LEAP 
C2) Z+ 147|/+\JAN;,D 


DAYS 
31 28 31 30 31 30 31 31 30 31 30 31 
O START_DAY 2 
2551361402 5 0 


e. Calendar for year shaped by quarters: 


SD 
255136140250 

YEAR*¢SD MONTH” DAYS 

e YEAR a use >YEAR to display as column of months 
12 

QTERLY+4 3pYEAR 


Solutions 1c 


1. In both cases the problem can be approached either by partial enclosure, or 


by axis-qualified multiplication. For (a) define 
A¢2 3 4p1 
eO<c(2IA 

111 14114 1441 1 
111 #141 41 


Alternative solutions are 
>[2]Mxc{2JA and Mx{[{1 3]A 


For (b) observe 


eOec({1 3]JA 
ee ee fe | 111 «1 1191 «1 
111 1 111 1 111 1 


The alternative solutions are 
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2[1 3]Vxe{1 3]A, Vx(2JA and +\(2]A 


2. For economy of space only shape and depth are given in full. 


shape depth equivalent Shape depth 
to: 

a. 10 2 i (34) 2 
b. (3 4) 1 k. 4 2 
C. (3 4) 1 2M13 1. 3 2 
d. 10 2 m. 3 2 
e. 4 2 n. 2 2 
f. 3 2 oO. 2 2 
g. 10 2 cM13 p. 10 2 
h. 10 2 cQM13 q. 10 2 
1. (3 4) 1 M13 


Solutions 1d 


1. For economy of space solutions values are given in an abridged notation. 


value shape depth 
E 3 2 
2 3p16 (2 3) 1 
1 10 0 
(E) 10 3 
RANK ERROR 
2 3p16 (2 3) 
RANK ERROR 
RANK ERROR 
2 10 
E 3 
(2 3p16) 10 
(2 3p16)3 2 
RANK ERROR 
same as k 
same as k 


on 


On ROTTS re mA Ae of 
NNN © 


2.a.3 3 3 b. 1 
e. 3 f. 3 1 


3. a. 1 and 3 
b. 1 and 3 have shape 10; 2 has shape 1 1 


Ww W 
WwW 
WwW 
WwW 

=O. 

W WwW 

W W 


ga 9 


4. a.2and4 


b. In 1, 3, 5 and 7 the shape of the index does not equal the rank of M11. In 
the case of 6 (1 2) does not match the rank of the second axis of M11. 
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5. a. 2001] 

567 8 shape = 4 
b. 20(21M 

2 6 10 shape = 3 
C. (c2 1)90011M 

567 8 

1234 Shape = 24 
d. (c2 1)0C2]M 

21 

65 

10 9 shape = 32 


6. a. 2001]A b. 30C3]A c. 2 30f1 3]A d.2 4 30A 


7. a. C(1++\T=" ‘')cT«*SPARE ME A DIME! 
SPARE ME A DIME 


b. (T#" ")cTe¢,M,* ° 


C. €+\"(1404V) cV 


8. Cardinal to Ordinal 


CO] Z+¢ORDINAL N;T3I 

C1] aN: simple positive integer 
C2] Z+sN 

C3] Te'st® ‘nd’ ‘rd ‘th’ 
C4] I¢«'123'1714Z 

CS] +€°1°#47242)/0K 

[6] I«4 

C7] OKs 

C8] Z¢+Z,I>T 


Solutions 1e 


1. (a) Yes, value is 3. (b) No, depth is 2. 
2. a. 1e714(~" "evo /ve" ',v,t ? 


b. >CeL[2IM)~cl(4OpM)p' ° 


(Note: If M is non-nested (b) is equivalent to (v/M#* *') 4M.) 


3. The results of applying the three collating sequences are: 


Appendix A. Solutions to Exercises 231 


(M17(CS14M173 ]) (M17(CS24M175 ]) (M17[CCS34M173 ]) 
ACE ACE ace 
BAD ace bad 
BED BAD ACE 
Bed BED bed 
CAB BeD_ BAD 
DAD bad Bed 
ace bed BED 
bad CAB dad 
bed DAD CAB 
dad dad DAD 


4. a. (i) >(¢[2]M)COAVAM] (ii) MCDCSAMs ] 


b. (i) 22 IF(Z1Z)=1pZ+(¢{2]M) COAVAM] 
(ii) ML(1,v/~2#4ML 131) /I+DCSAM3 ] 


5. A matrix of 1s of shape pC. 
6. a ((14+R-L)p1)€Rpe1 
b. = 14#-C)0(1+-W)E((14+R-L)p1)ERp1 


7. (2 2 2p1)€A13 


8. a. CO] Z*REPL R 
C1] Z2¢R 
C2] ((C* "sEeZ)/EeZetx!® 


REPL 2 4p°ABC ' 
ABCx 
* ABC 


b. In line 2 replace * *=Z with O=Z and ‘x* with c'N/A' 


Repl 2 491 23 00 
12 3 N/A 
N/A 1 2 3 


Solutions 2a 


l.a. DISPLAY pV23 


232 APL2 IN DEPTH 


b. DISPLAY p”V23 
r>—————— 
Irae | 
| 131 12t | 
po bad bod | 
Le——__ 


C. DISPLAY p°"V23 


r r | 
| | | 
| 101 JO} TO} | T T3l 12 31 1 | 
J band Ln bond | | | 
L L | 


d. DISPLAY pV24 


DISPLAY p' V24 


rc 
| re rm | 
| 101 121 | 
p Ln Ld | 
L 


f. DISPLAY p“"V24 


2.a. (24 25 26) d. 1267 8 
b. (9 11 13) e. 12 21 
Cc. 345678 


3. (4°V)«'DA', or in general use DAF. 


4. An expression for the weighted moving average is: 
+/°(cW)x(pW),/V 


5. 1-f. 2-b. 3-d. 4-a. 5-g. 6-c. 
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Solutions 2b 
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l. a. 2 3p W 
AB DEF 
b. 2 3p cW 
ABC DEFG ABC DEFG ABC 
Cc. 2 3p¢ WwW 
ABC DEFG ABC 
DEFG ABC DEFG 
d. (c2 3)p'°W 
ABC DEF 
ABC GDE 
e. (c2 3)p cw 
ABC DEFG ABC 
DEFG ABC DEFG 
f. 2 3p" "WwW 
AA BB CC DDD EEE FFF GGG 
2. a (24 1 3901 3 2)(1 23) bD231 6431 2 
3, (?°3p¢100p6)1°6 


4. a. Suggested comments are: 


CO] Z¢+L PRT3D R;PLA; ROW;COL 
C1] Z2«c{2 3])A 

[2] Z2«* *,C1)°' *,[€2)°2 

C3] PLA¢€L(1],°2>L 

C4] ROW<'\',L03],42L 

C5] COL€L[5],6>L 

C6] Z¢(cROW),°(cCOL),£1]°Z 
C7] Z«+PLA,(£1.5]Z 

C8] Z¢«,[10]1Z 


DaorwoT7T7T7737 3 DD D 


make data into a vector of planes 
prefix rows and columns with blanks 
construct plane titles 

construct row titles 

construct column titles 

attach row & col titles to each plane 
attach plane titles 

arrange as a single column 


b. The shape/depth table for Z at the various stages of execution 1s: 


= °) 


2 2 
C2] 2 2 
[6] 3 2 
C7] 3 2 2 
C8] 3 2 2 


0” 


(3 4)(03 4) 
(4 5)(4 5) 
(5 6)(5 6) 
3(5 6) 

3(5 6) 

3 

(5 6) 


3 
(5 6) 
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c. The descriptor L[1] is joined to each heading and so retains its identity as a 
single unit. It should therefore remain enclosed and so a cross-section (indexing) 
is required. The headings, however, are joined individually, hence pick is appro- 


priate. 


d. (i) The following changes should be made to TITLES: 


TITLES(2]«c*PLA1* *PLA2'° 
TITLES(C4]«c*ROW1" ‘ROW2* ‘*ROW3' 
TITLES(6]«<¢*COL1* ‘COL2* *COL3* ‘COL4' 


(ii) No changes need be made to PRT3D. 


5. Pascal triangle 


CO] Z*PASCAL N 

C1) Z#1515° C1 N)Y1N 

C2] Ze(114#N)4"Z a delete trailing zeros 
C3] Zt23°Z 


CO] Z*CENTER A3$T 
C1] Az simple character matrix with trailing blanks 
C2] Te+/a\' '=0A 
C3] Z+(-L .5xT)OA 


Solutions 2c 


1. One possible modification is as follows: 


CO] zZ*L Compress RsSBV3I 
C1) (BV I)¢«L 
C2) Z*BV/CIIR 


2. Values are: 


a. 2-/10 5 2 12 6 
5 3 °10 6 
b. ~2-/10 5 212 6 
~§ “3 10 “6 
C. 29/2 3 4 

33 444 
d “2p/2 3 4 


222 333 3 


3 a. Each of the items of v is replaced by the prototype of V which is (0 
the test case. 


b. (€2xp"V)p"<cO ~1) COMPRESS” V 


) for 
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4. There are no others. This is discussed in more detail in Section 5.5.3.1. 


5. Scan 


6. a. [0] Z+DTB R 
C1] >0O IF(O=pR)v' "#40Z¢R 
[2] Z*+DTB ~1¥4R 
b. One possibility is to use scan, e.g. 


CO] Z+Dtb R 
C1] Z*O(V\OR#" ')/OR 


c. Use DTB”“ VW or Dtb’ VW. 
7. a. x/+/°25,/15 
b. 3 1 4/'ABC! 


8. [0] Z¢L FIND R;T 
[1] Te 1+0L 
C2] Z¢((~14R11)40),€(¢Tp1),°(-T)+"°(+\R) cReLER 


9. v/(Ce2 2)p"(1 0 0 1901 101901 01 1901 1:1 «1)0E"EMAT 
or more briefly 


vV/(Ce2 2)p°Ce4 2)T°9 13 11 15) €°CMAT 


Solutions 3a 


l. a. (+#>PRICESxSTOCKS>0) ++#2STOCKS>0 
55.633 24.75 43.3 24 76.5 

b. (3+/>PRICESxSTOCKS) ++#>STOCKS>0 
56.222 24.75 39.108 24.75 76.5 


2. VY “NETMU 
123 51243 314 2 


which can be translated into component names by 


> (A “NETMU) 9°“ <¢¢cCNOS 
X801 X802 X803 
X805 X801 X802 X804 X803 
X803 X801 X804 X802 


3. The Cash Register System 
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[0] Z¢I RECEIPT STOCKsT 

[1] aSTOCK: vector of vectors - each item consists of 

[2] a (inventory no.)(item name)(unit amount)(costs/unit) 
C3] als vector of inventory numbers in stock 

C4) T¢et STOCK 

C5] Ze21¥"STOCK[Ti1] 


2STOCK 
211 THREADIES 1000 1.98 
312 FLATONES 11.09 


654 LOTSAVOLTS 21.55 
211 654 RECEIPT STOCK 


THREADIES 1000 1.98 
LOTSAVOLTS 21.55 


Solutions 3b 


1. Multiplier is between 
40((,MTAB)(CTIJ)IF .5>+\(,PTAB) (T«4,MTAB] 


45,993 
and 
4((,MTAB)CTI])IF .5<+\(,PTAB) (T«4,MTAB] 
48.173 
2. +/"10 12°.NPV REV REV1 REV2 


19005 12510 13697 
17947 11896 13002 


3. The expressions are evaluated for the particular value BANK given in the exer- 
cise. 


a. p BANK 
rm 
b.(i) +/"+/" “BANK 
15 34 “6 25 
(ii) +/"+/"°”° Of BANK 
34 44 11 25 
(111) |+/"+/"“° OLBANK 
19 10 17 0 
C. +\"+/" “BANK 
20 15 15 34 “6 “6 25 25 
d. +/+/° “BANK 
54 14 
e. +/é€BANK 


68 
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4. Last Trades a. Find last trade of each stock: 


CO] 
C1] 
C2] 
C3] 


GM 
T 
IBM 


Z*LAST_TRADE X;T;SYM 

T+exX 

SYM¢T( 31) 

Z+@( (SYM1SYM)=1pSYM)/(1I)T 


STP 

3:25 95 
3:27 36.5 
33:31 43 


3:33 42.75 
3:45 102.25 
3:57 102.125 
4:02 43.125 
4:04 43.375 
4:04 102.25 
4:05 36.75 
4:12 102.5 


LAST_TRADE STP 
3:33 42.75 
43:04 43.375 
4:05 36.75 
4:12 102.5 


b. Last trade of a given stock. 


[oJ 
C1] 
[2] 
C3] 
C4) 
C5] 
C6] 


Z*S STK_LAST_TRADE X;T;SYM 
aS: stock symbol character vector 
T+ex 

SYM¢T( 31] 

Z¢( (SYMiSYM)=1pSYM)/(C1IJT 
T+Z031] 

2eZ0(Tw~"* ")icS3] 


"GM* STK_LAST_TRADE STP 


GM 4:04 43.375 


c. Enhanced solution if the stock is not traded: 


[CO] 
C1] 
[2] 
C3] 
C4) 
C5] 
[6] 


Z*S Stk_last_trade X;:T;SYM 
SYM<«10(2]T+«ex 
Z+e((SYMiSYM)=1pSYM)/[(1I]T 
Ie#(Z063s1J]~"" *‘)icS 
-L1 IF I>4pZ 
*O0 Z¢Z(I3] 
L1:Z¢'*Stock ',S,° not traded’ 


'GM' Stk_last_trade STP 


GM 4:04 43.375 


‘AA’ Stk_last_trade STP 


Stock AA not traded 


d. Return the last trade after a given time: 
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CO] Z*TIME TIM_LAST_TRADE X;T;SYM;TIM 
C1] TIME<@‘':.° CHANGE TIME 

C2] TIM¢20(C2)]T+ex 

C3] TIM¢e@"(c*:.* )CHANGE TIM 

C4] SYM¢10(02)]T«(TIME<TIM)/(1)T 

C5] Z*0((SYMitSYM)=1pSYM)/(1I)T 


*4:00* TIM_LAST_TRADE STP 
GM 4:04 43.375 
T 4:05 36.75 
IBM 4:12 102.5 


(See Section 1.4.2. for CHANGE.) 


Solutions and Notes 4a 


1. In (a) and (b) the right argument is a scalar, and scalar expansion takes 
place. (b) means apply reshape twice, once with left argument 2, and then with 
left argument 3. 


a. DISPLAY 2 3pcV 


OT 


een Oe dees ee eee 
14 5 61 14 5 6| 14 5 6 
ne a ee | 


+ | 
| | 
| a | 
reo ao ae it! 
| 145 61 145 61 14 5 61 | 
ne en ee a cee 
L 


b. DISPLAY 2 3p"“cV 


tres re i! 
1 14 51 145 61 | 
J nmd LV] 
L 


(c) fails because the numbers of items on each side of the p” are not equal. 


v4 5 6 
2 3p'V 
LENGTH ERROR 
2 3p°V 
A A 


In (d) the items of V are scalars and so enclosing each of them makes no differ- 
ence, that is the enclose and each cancel each other out and this phrase is 
exactly the same as 2 3pV. 
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d. DISPLAY 2 3pc’V 
ree 
44 5 6| 


14 S 6 
L.———! 


(e) and (f) both fail because the left argument of p must be simple. 


e. (<2 3)pV f. (<2 3)pcVv 
DOMAIN ERROR DOMAIN ERROR 

(c2 3) pV (c2 3)pcV 

A A A A 


In (g) the derived function p” has a scalar left argument and a vector right 
argument, so the former is scalar-expanded and item by item execution of p 
results in a three-item vector. 


g. DISPLAY(¢c2 3)p"V 

_ 

Pre or oar! 

| v4 44] 45 5 5] 16 6 6I | 
| 
| 


| 14 4 41 15 5 SI] 16 6 6 
ee ees es ee 


Le———__ 


In (h) reshape-each has 2 scalar arguments. By the each rule both are disclosed 
prior to function application and the result is enclosed to give finally a depth 
two result. 


h. DISPLAY(¢2 3)p"cV 
7 


| 

| v4 5 6l 
| 14 5 6] 
; Ww 
Le——_______ 


2 AB CDE 


a. AB CDE 

b. ACDE BCDE ABCDE 

C. LENGTH ERROR 
d. 


AC AD AE BC BD BE 


AC BD 
ABCDE 


moa mh O 


3, OV 

A9 B12 B9 b9 B10 

(i) 2(QDAVA>V)0"cV 
b9 AQ B12 B10 BY 

(ii) VCLDCSA>V] 

A9 BY b9 B10 B12 


4. é€(QAF(~14+OAF'A')+126), ‘(OAF(” 1+0AF'a')+126 
or DAF, (0,125)°¢.+DAF‘' Aa’ 


5. v/eVie"cV2 or v/eVie“cV2 
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6.a. (ipV)IFeA/("AB'EV) ('C'e( pV) 430V 


b. ZiIF 'C'e"(Z¢(ipV)IF"AB'eV) ¥"cV 
7 a. Total words 


WORDS¢(1+GETTYSBURG#* ‘° )cGETTYSBURG 
pWORDS 
267 


b. Number of distinct words 


UWORDS<«WORDS~"c' ,.33-' a remove punctuation 
PUWORDS 
267 


a map upper case to lower case 


FIRST+¢* “UWORDS 
ALPHA¢ 'abcdefghijklmnopgrstuvwxyz' 
ALPHA¢ALPHA, ' ABCDEFGHIJKLMNOPQRSTUVWXYZ' 


5*UWORDS 

Fourscore and seven years ago 
(*”°UWORDS)<« ALPHA[ 26|ALPHA1 FIRST] 
5*UWORDS 

fourscore and seven years ago 


a determine number of distinct words 


DISTINCT<( (UWORDS 1 UWORDS ) =1 pUWORDS ) /UWORDS 
pDISTINCT 
139 


c. Concordance 


a determine occurrences of each distinct word 


TOTALS<¢+/DISTINCTe . =UWORDS 
p TOTALS 
139 
DISTINCT_CT«DISTINCT,(1.1JTOTALS 


epDISTINCT CT 
139 2 
SORTED_CT+DISTINCT_CTCLYTOTALS; ] 
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104(1]SORTED_CT 


that 13 
the 11 
we 10 
to 8 
here 8 
a 7 
and 6 
nation 5 
of 5 
have 5 


8. It transforms it into a sentence. 


Solutions 4b 


l. CO] Z*DTB R 
C1] Z*O(V\OR#* °)/OR 


a. CO] Z*DTBM R 
C1] Z2*DTB"c{2I]R 


b. CO] 2+*L INDEX R 
C1) Z¢((cDTB R)="DIBM L)/itpL 


or C1] Z2e(LA.=( 14pL)4R)/1"“ppeL 
2. a. >@"c{2]M 


b. 2e"c{f/ippAlA¢',',A 


Solutions 4c 


l. A+2 3p16 
Be3 
C<«*°APL' 
E«(cA) ,B,cC 
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b. DISPLAY *t0OpE 


ree] 
40 O O| 
10 0 O| 
ee | 


C. DISPLAY +tOpcE 


The remaining answers are given in a condensed notation. 


value 
d. ) e 
€. RANK ERROR 
f 3 


shape = 


Shape = 


shape depth 
3 1 
10 0) 


0, depth = 


2 3, depth 


2. (a) and (c) reduce depth, the others do not. 
(c) is subject to INDEX ERROR, (a) is not. 
(b) requires that the rank of A is one or zero. 
(d) and (e) are fully equivalent. 


(i) (a) and (c) are the same, (b),(d) and (e) are the same. 


= 3,depth = 


10 


value 
3 
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Shape depth 


Le) 
0) 
1 


(Hint - confirm by Te .=T+«( +A) (14A) (12A) (AL1])(10A)) 


(ii) all of them are scalar 1 except (b) which is vector 1. 


3. The answers are given in a pseudo-APL notation in order to highlight dis- 


tinctions between e.g. 10 and the character ‘blank’. 


a. (i) (O 0)(0)C° 


‘) 


(ii) (O 0) 


b. One is two zeros, the other is three blanks. 


c. (i) (1 2) (3) C*ABC') (0 0) (0 0) 
fii) (12000) (3 0000) (ABC 
(ili) C*ABC') (3) (1 2) C° ") ¢? 

d. (i) 120 (iil) D (iii) 

300 
ABC 


ON = 
oO WwW 
OW YS 


‘) 
‘) 
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4. a. >'THIS’ ‘'IS'* 100 
THIS 
I s 
100 0 0 O 
b. 21°13 


Cc. ¢[{2 1]>V47 


5. ~1* always returns a one item vector containing the first item; +o returns the 
last item itself. 


6.a.1 b. 123 c 14 +d.12 3 
7. pM or p&M in both cases. 


8. 4°V48C42>°V48] or +°V48[420 "V48] 
GETTY TRUMP 


9. first 


Solutions 4d 


l a. DISPLAY x/2 3 OpO 


ree] 
41 11/4 


111 11 
Lv) 


b. DISPLAY x/2 0 3p0 


C. DISPLAY x/<2 0 3p0 
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2 a. DISPLAY #(10)%Opc2 3p0 


b. DISPLAY *H"Opc2 30 


C. DISPLAY *#(¢c3 4)p"Ope2 3p0 


Some implementations may give the same answers to parts (b) and (c) as to part 
(a). 


3 a. DISPLAY p/2 3 OpO 
reer > eel 
bp re 


1ol1 [Ol 1[90l 
Lad bot Lard 


| 
| 
| p®_ py 
| 101 JO JOl 
| 
L 


| 
| 
| 
| 
| 
Lod bat bw | 


Appendix A. Solutions to Exercises 


4 a. DISPLAY &/Opc2 3p0 


e. DISPLAY ~/Opc2 390 


f. DISPLAY ;,/Opc2 3p0 
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Sa. DISPLAY pt,/Opc2 9p0 
ree 

[2 O| 

b. DISPLAY pt,/Opc2 9 9pO 

DISPLAY pt,/Ope2 9 9p0 

ree 
I2 9 O| 
Lens end 

Cc. DISPLAY pt,/Ope2 9 9 9p0 
co 
i299 O| 

—__] 


Cad 


Eventually what happens is 


DISPLAY pt,/Ope2 99999 YM 9pO 
WS FULL 
DISPLAYpt,/Ope2 99999 I IpO 
A A 


Solutions 5a 


1. One way to write the operator CONSEC is 


CO] Z*¢L(P CONSEC)R 
C1] Z*Z/ipZe¢((L-1)p1.E2 P/R 


Vv 
234345227 

2<CONSEC V afor strictly increasing sequences 
1245 8 

32CONSEC V afor non-decreasing sequences, etc. 


6 
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2. a. It is convenient to write the operator BASE on the assumption that two 
functions TODEC and FROMDEC exist to convert to and from decimal notation. 


[OJ Z*+L(P BASE Q)R 
C1] (L R)+Q TODEC’L R 
C2] Z*+((pZ)p10)1Z¢Q FROMDEC L P R 


The functions TODEC and FROMDEC can then be written: 
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[CO] Z¢L FROMDEC R 
C1] Z¢((1+[L@RIPLITR 


CO] Z*+L TODEC R 
C1] Z+((pZ)pL)1Z2¢10 FROMDEC R 


16+BASE 7 23 
42 

1111#BASE 2 11 
101 


b. Extend to process arrays by using each, e.g. 


O«A¢2 201111 110 10010 100001 
1111 110 
10010 100001 


A+BASE 2°11 
101 10 
110 1011 


3. ROOT is a dyadic function. ROOTOP achieves the identical result for scalar 
arguments by producing at an intermediate stage a monadic derived function 
which could be called the Pth root-function. Using ROOTOP can sometimes avoid 
the need for enclosure, for example: 


2 3 ROOTOP'15 

11 #1.4142 1.2599 1.7321 1.4422 2 1.5874 2.2361 1.71 
2 3 ROOT™15 

LENGTH ERROR 

2 3 ROOT'15 
A A 
(c2 3)ROOT 15 

11 #1.4142 1.2599 1.7321 1.4422 2 1.5874 2.2361 1.71 


4.bandc 


Solutions 5b 


1. a. PRODUCT : Apart from the function name the only change required is to 
replace + by x. 


b. JOIN : The changes required here are more subtle and require the use of ¢ 
and * on account of the non-pervasiveness of catenate. 
CO] Z¢JOIN R 
C1) *L1 IF 1=pR 
[2] *0 Zec(t*R),2JOIN 14R 
C3] L13:Z¢ctR 


2. Change line 4 of Path so that the function reads: 
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[0] Z¢L PAth R3sT 

C1] *L1 IFA/(LeeR),1S2R 

C2] +O Z+«10 

[3] L1:*L2 IF(10)=pR 

C4] T+c1+(pR)T~14+(,LE"E"R)11 
C5] +0 Z+T,L PAth TR 

C6] L2:Z¢(e¢10),L PAth4R 


3. A suitable function to change all occurrences is 


C0] Z¢L CHALL R 

C1] »L1 IF-(4LJ€e€eR 

[2] >0O Z+L CHALL L CHANGE R 
[3] L1:Z¢«R 


4. a. The following is a recursive definition of the POWER1 operator: 


[0] 2Z+L(P POWER1 Q)R 
[1] L1 IF Q=0 
[2] 70 Z+(L P POWER1(Q-1)R)P R 


C3] L1:Z2¢L 

3 *xPOWER1 3 2 
6561 

12xPOWER1 3 2 
96 


b. The following is a recursive definition of the POWER2 operator: 


CO] Z*L(P POWER2 Q)R 

C1) *L1 IF Q=0 

[2] >O Z+L P L P POWER2(Q-1)R 
[3] L1:Z¢R 


c. The following sequence illustrates the convergence of the iterative solution 
of the equation y = cos(y): 


ZOPOWER2 10 1 
0.7442373549 
ZOPOWER2 25 1 
0.7390713653 
ZOPOWER2 50 1 
0.7390851339 
ZOPOWER2 100 1 
0.7390851332 


d. Use POWER2 as follows: 
CRYPT+CODE CODIFY POWER2 4 'DOG' 


The receiver decodes using 


CODE DECODE POWER2 4 CRYPT 
DOG 


where DECODE is given by 


Appendix A. Solutions to Exercises 


CO] Z*L DECODE R 
C1] Z2*ALFCLiR] 


5. An operator POLISH and compatible functions MEAN and MEDIAN are: 


[CO] Z«(P POLISH)R 
C1] Ze-(eP"c[1]RI-C2]R*R-C1]eP c{2]R 


CO) Z*MEAN R 
C1) 2Z2+¢(+/R)FpR 


CO] Z*MEDIAN R 
C1] Z+.5x+/RCEP.5x0 1+pR*RCLAR) J 


T 
0 6 6 
4 0 2 
MEAN POLISH T 
“3 2 = 1 
3 ~2 “1 
MEDIAN POLISH T 
“4 10 
4 ~1 0 


Solutions and Notes 5c 


l. »/H 
1 8 9 10 654399 
21112 13 216599 
¢(2])H 
1 8 9 10 6543 9 9 
2 11 12 13 2165 9 9 
2. a. »/M 
ABC DEF 
b. »/°M 
ABC 
DEF 
Cc. »/A 
ABC DEF 
GHI JKL 
d. »/"A 
ABC 
DEF 
GHI 
JKL 


3. a. CO] Z¢«L SUBMAT R 
C1] Z2«(cL)p°L01),/01]L02],/R 


b. Define 
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[CO] Z*TEST R 
C1] ZeA/(~2 20R),01 2)¢€2 3)9(03 2)0°CR 


The given pattern can therefore be tested for by 


TEST’3 3 SUBMAT M54 

010 
00 1 
c. Generalizing this test to cover any pattern requires the definition of an 
APL2 object to represent a pattern. One possibility is to use a three item vector, 
the first item of which is the shape of the pattern, the second item is a vector of 
the co-ordinates of the Os, and the third item a vector of the co-ordinates of the 


1s. The pattern above would then be represented by 
PAT€(3 3)¢¢2 2)¢0¢01 2)02 3)¢3 2)) 
Care has to be taken to ensure that the two vectors of coordinate vectors are of 


equal depth, hence the explicit enclose in the second item. A function which 
tests for the occurrences of a binary pattern L in a binary matrix R is 


me Z*L PATIN R 
C1] R«(¢*L)SUBMAT R 
[2] Zt 2A/A/”” (*LE2]SEL"R) (CLOC3ISEL”R) 


CO] Z*L SEL R 
C1] Z+L]“cR 


Hence the test above could be achieved by 
PAT PATIN M54 


010 

00 1 

4. a. (#\(3xpCV)p1 1 O)\CV 
b. (#\(01.5xpCV)p1 0 1)\CV 
C. (A\' at sLINE) /LINE 


5. a. First observe that the shape vector rule requires that the outer structure be 
a two by two matrix. To determine the items, e.g. first row, second column, the 
each rule must be applied, i.e. the vector 2 2 and the matrix 4 1p*ABCD* are 
both disclosed, p is applied, and the result enclosed as a scalar to take its place 
as item [132] of the result. Since none of the items so enclosed exceeds depth 
one, the overall depth of the outer product is two. The final result is therefore 


(C2 2)3)°.p6(04 1p*ABCD® ) 
6 AB 
6 CD 


6 6 6 ABC 


b. Start by displaying the two matrices A and B: 
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DISPLAY A B 


Irs re i! 
| ¥1 21 44 31 | 
| 
| 


| 13 41 12 11 
en ee ee 


The APL2 rule says enclose along last and first axes, and take the outer 
product: 
DISPLAY’ (c(2J]A)(¢(1]B) 
rs ee es 


ae geen On eee gee gees 
fF 117 21 13 4) | tf 14 21:13 120 | 
ee eee a (a eee ed oe | 


bee Lg 


DISPLAY (c({2]A)°.xc({1]B 


v | 
| | 
eee ee ee 
in gee Oe eee 
| | 
| | 
L 


é-_—_ 


The numbers appearing in the above display are clearly those which arise in 
“row-into-column” evaluation of the matrix product. The result is completed by 
taking the sums of the numbers within each inner box: 


DISPLAY +/"“(c(2]A)°.xc({1]B 
re 
+8 5S 


[20 13] 
Ln ae! 


which 1s the same as 


DISPLAY A+.xB 
reer] 
¥ 8 S| 


}20 13] 
Lens al 
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6. a. 2 4e.4+1 4 6 
36 8 
5 8 10 
b 2 4e,,1 4 6 
2124 26 
44 44 4 6 
Cc 2 2°.p14 
112233 44 
112233 44 
d 2 3°.p14 
1 1 22 3 3 4 4 
111222333 444 
e 2 4 6¢.,'AB' 
2A 2B 
4A 4B 
6A 68 
f. 2 4 6°¢.,°AB’ ‘CDE’ 
2 AB 2 CDE 
4 AB 4 CDE 
6 AB 6 CDE 
7.a 3 2 1p.p3 2 1 
3 2 
1 3 
21 
b. 3 2 1p.p3 2 1 
222 3 
11 222 
3 11 
Cc. 12 3,.p4 S& 6 
456 45 6 
d. 1 2 3p..4 5 6 
6 
e. 12 3~.4+2 3 4 
3 
f. 12 3+.*2 3 4 
1 
8. a. 1.875 in both cases. Result is weighted average with weights in 
descending powers of 2, viz. 4.2 1 1. 
b 2 2.5 3 in both cases - table of averages by pairs 
2.5 3 3.5 
Cc. 33.5 4 for AVG- %o0f 1 2 3,1 2 4,and1 2 5. 


34 3.5 4.5 4 § forMID- (¢1 2) added to % of 
-~/3 1 2,-/4 1 2,and-/5 1 2. 
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d. 7.5 for AVG - .5x+/15 
3.5 4.5 for MID - (<1 2) added to %of-/3 45 1 2 
e. 1.9375 in both cases. Result of intermediate outer product is 


1 2 3 4 Sso final result is AVG/15, that is 
weighted average with weights 8 4 2 1 1. 


f. 4 for AVG.MID AVG/"(¢1 2)°.MID <3 4 5 
+> AVG/"c3.5 4.5 
+> AVG/3.5 4.5 


7.5 for MID.AVG MID/.5x+/1 23 4 5 


Solutions 5d 


l.a. A/"“CONS*e.e€PROD Db. v/“CONS*.€PROD 


To obtain the vector of vectors use 
(c{2]M)COMPRESS"“c1 149M 


as described in Section 4.2.1. 


2. a. It returns the digit sums of the first 20 positive integers. 

b. The left argument of + must be simple - the inner product means that a 
second enclose is applied to 10 10 so that a non-simple object, viz. <10 10 is 
the left argument to each of the 20 separate Ts. 


Solutions 5e 


l. [0] 2Z+€L(P ONLYS Q)R 
[1] 2L1 IF 1<=Q 
[2] *0 Z+L(P ONLY Q)R 
C3] L1:*L2 IF*a/0=pQ 
[4] 70 ZL 
[5] L2:Z«(L(P ONLY(4Q))R)P ONLYS(14Q)R 


2. a. Co] Z+¢L(P Trace)R 
[1] @'()«(Z<«' LEX,’ P R)'*¢«'*, LEX,''P'* R' 


b. [0] Z+L(P Simple)R 
[1] +L1 IF Z«2>=R 
[2] 70 Z+e,LEX,'(P Simple) “R' 
[3] L1:Z+eLEX,' P R' 


254 APL2 IN DEPTH 


3. CO] Z*L(P Comp1 Q)R 
C1] Z+e2,LEX," PQ R® 


4. One solution is 


CO] Z*+(P SECANT)X;T 
C1] Ze(-/(OX)xT)+-/TeP"xX a interpolate new point 
[2] Z*(O(xP Z)=xP"T)/T+«(4X),Z,14+Xa Select interval containing root 


To solve f(x) =O where f(x) =2-x(x-1), and using start values 1 and 7 proceed as 
follows: 


CO] 2eF X 
C1] Z*2-XxX-1 


4F SECANT RPTUNTIL NEAR 1 7 


Solutions 5f 


1. A possible function is 


[0] Z*+SHORTEN R 
C1] Z#(, 144°R)* *©(714R) 


2. Predicates may be defined as 


CO] Z*ISwW2 R 
C1] Z** WILLIAM’ =25R 


[0] Z+€SCOTCH R 
[1] Z*'MC'=2+(pR)R 


3.  2NAMES IF~-ISW2”NAMES 
4. ¢€”“>SHORTEN UNLESS SCOTCH”NAMES,”"* ° 


5. Define a function NOTSCOTCH as the negation of SCOTCH (using ~SCOTCH 
won't do!) and use 


2€”° LENGTHEN UNLESS NOTSCOTCH”NAMES,””* ° 


CO) Z*LENGTHEN R 
C1] Z«(~1¥R),¢°MAC',2veE 14R 


6. (71+°NAMES),,[10]~1+”NAMES 
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Solutions 6a 


1. Change AAIsin to 


[CO] Z*+L AAIsin R 

C1) >L1 IF(*LIGTIt*2>R 
C2] >O Z«1+L IsintR 
C3] L1:Z2«1+L IsintOR 


6 7 8 Isin’cTR1 
13 2 

"ANN’ ‘DAVID'Isin’cTR3 
2 3 


2. The following function sequence obtains subtrees as specified: 


[0] Z2¢L SUB R 

C1] *L1 IF O=pR 
C2] >O0 Z¢+L ASUB R 
C3] L1:Z«10 


[0] 2+L ASUB R 

[1] 2%L1 IF L=2>2R 
[3] +0 Z+*L AASUB R 
[2] L1:Z¢R 


[0] Z+L AASUB R 
[1] 2L1 IF(*LIGTI*22R 
C2] >0 Z+L SUB*tR 
C3] L1:Z«L SUBtoOR 


8 SUB TR1 
7.5 8 9 
"ANN'SUB TR3 
ANN DAVID 


Solutions 6b 


1. A function MAKENET which constructs a connectivity matrix from a vector of 
co-ordinate vectors is: 


[0] Z2*L MAKENET R 
C1) Z*+(Lp0)AMAKENET R 


[0] Z*L AMAKENET R 

C1] >L1 IF O=pR 

[2] >O Z+(L AAMAKENET*R) AMAKENET 1+VR 
C3] Li:Z¢L 


[oO] Z*L AAMAKENET R 
[1] 2*+*L(OCRJL) <1) 
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2. a. Use say (¢NETL) REACH” 13 - answer is all nodes. 
b. Use NETL PREC 3 - answer is node 2 only. 


3. T¢SYMNET MST 1 
T,€.5)]TQ°“cSYMNET 


4. Use MSTV - answer is 9 by building roads 15, 54, 43 and 42. 
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Appendix B. Some Key Rules and Identities 


Scalars and Pervasive Functions 


For scalar S$ S «> cS 
For pervasive F (F R) «> F"R 
Indexing 


Informally the shape of the result is the shape of the index and is independent 
of the shape of the data. 


For valid I, 
for vector V IQV «+ VCI] «* (cI)>2V 
for arrayAand IQA (p,I) «> ppA 
— informally the shape of the index is the rank of the array. 


Operators 


Operators have long left scope and short right scope, whereas functions have 
long right scope and short left scope. 


Each 
For monadic F and Z«F"R ZCI] «> cFR[I] 
For dyadic F and Z+L F”R ZCI] «* c(=LCI])F>R(I] 


For scalar F, scalar S, and arrays A B C D 
SF" AB <+«*> (S F ADCS F B) 
ABF" S «7 (A F S)(B F 8S) 
ABF'C D «> (A F C)(B F D) 
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Reduction 


Reduction reduces rank, not depth. 


For vector V 
For vector V 
For array A 


Outer Product 


For Z«Le.P R 
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(F/V) «> V{1] F V([2] F ... 
(F/°V) «> (CF/V(1]) (F/V£2]) ... 
(F/"A) «> cF/>2A 


for valid I,J ZCI3J] «> c(2L[1I])Q2R[J] 


Inner Product 


L P.Q R «> P/"c{ppLJL)°.Qc([1I1R 


Replicate 


For valid L,I,A 


for L/CIJA (+/~1xL) «> I>pA 


n-wise Reduction 


For scalar S, vector V (S+pS F/V) «> 14+pV 


First 


(4A) «% (cT)5(°T*+(ppA)p1)4A 


Take/Drop 


(pItA) «> 


[I 


(pIVA) «> Of (pA)-I 


Appendix C. List of Illustrations 


Section 


1.1.1 
1.2.1 
1.2.4 
1.2.6 


1.3.4 
1.3.5 


1.4.2 


4.2 


Topic 


Complex numbers 

Separating and Grouping 

Writing Reports 

Grouping like items 

Stem and Leaf Plot 

Character to Numeric Conversion 
Deleting blanks 

Intersection of data items 

Passing Multiple Arguments 

Selective Assignment in Functions 
Scalarization 

Descalarization 

Increasing Rank 

Copying Structure 

Process numerics only in a mixed array 
Convert an array of any rank into matrix 
Alphabetic sorting of vectors and matrices 
Averaging tied rankings 

Schoolmaster’s Rank 

Test for all items in a vector the same 


Functions/Operators 


CHANGE 


UPRANK MATRIFY 


SORTC 
TUP TDOWN 
SCH 


Find all occurrences of one string within another 


Delete Multiple Blanks 

Pattern Matching 

Multi-path selection (scatter picking) 
Frequency Distributions 
Mid-points in Euclidean geometry 
Each with index of 

Each with grade 

The conjunction IF 

Multiple copies of matrix rows 
Avoiding Blanks in List Lengths 
Reversing scans 

Partitioning a Record into Fields 
Word Search 

Spell Check 


MIDPT 


IF 
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4.3 
4.3.3 
5.1.2 


5.2 


5.5.1 
5.5.3 


5.5.3.1 
5.5.6 


5.5.7 


9.5.7.2 


5.6.1.1 


5.6.1.2 
5.6.1.4 


5.6.2 
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Enlarging a List of Words 
Vector Merge 


Random Sentence Building SENTENCE 
Catenation of Matrices VCAT 

Partial Enclosure 

Find co-ordinates of 1s in binary matrix COMPRESS ONES 
Binary matrix as partitions of column indices 

Distinguishing character, numeric, etc. TYPE 

Converting vector of names to a matrix form 

Moving functions along an axis ALONG 

Table Building TABLE 
Implications of Binding RED LRED 
Hexadecimal Arithmetic | DTH HTD HEX HEXE 
An Operator for Padding Matrix Catenations NEXT 

Selective Enlist ENLIST 
Reduction applied to matrix multiplication DF 

Co-ordinates of Spirals SPIRAL 


Scans with Binary Arguments 

Delete leading blanks from a character vector 
Display comments only on an APL line 

Remove first occurrence only 

Spacing character vectors 

Selecting alternate items 

Adding columns of zeros to table 

Parity checking 

Gray codes 

Finding vowels in words 

Gradient of mid-points GRAD MIDPT 
Sampling extreme values from uniform distribution 
Sequences of Inner Products 

Inner Products with Nesting 

Displacement Vectors 

Outer and Inner Products with Explicit Each 
Sequences of Inner Products with Nesting 

Decode and encode for arrays 

Selective function application 


Selective Processing SOMECHAR SMALL 

Repetitive Prompts ASK NULL 

Iterative solution of non-linear equations COS NEAR NEWTON 

Non-linear function fitting FIT ALLNEAR 

Data Filtering NUM INTEGRAL 
FILTER 


The ELSE Operator ELSE 


index 


A 


Alternator 145 
Ambi-valency 
Ancestors 198 
Atomic vector 45 

Axis qualifier 15, 16, 17, 19, 27, 67, 68, 110, 113, 228 


132 


Binary Trees 200 

Binding 122, 125, 160, 173, 175 
Blanks 71, 73, 102 

Bracket indexing 24 


C 


Calendar 14, 227 

Capacity 208 

Case statement 104 

Catenate 5, 125, 136, 156, 247 
Catenation of matrices 98, 128 
Collating sequence 46, 50, 206, 230 
Comments vi, 64, 144, 158 

Commute operator 122 

Complex conjugate 225 

Complex numbers 4 

Compression 68, 101, 181 
Concordance 97, 240 

Connectivity matrix 209, 210, 218, 255 
Control structures 172 
Copying structure 39 
Critical path 212 
Cross-sections of arrays 
Cryptography 138 


Data filtering 181 
Data-equivalent trees 205 
De Moivre’s theorem 4 
Decode 169 
Decorators 40 
Deleting blanks 
Depreciation 82 
Depth 1, 47, 89, 93 
Derived functions 36, 53, 54, 57, 60, 67, 68, 70, 71, 84, 
93, 121, 122, 124, 132, 135, 139, 149, 160, 165, 177, 247 


24, 89, 103, 109, 139, 234 


73, 102 


Descalarization 38, 98 

Dictionary 94 

Disclose 11, 12, 15, 16, 27, 90, 95, 98, 103, 108, 109, 111 
Discounted cash flow 82 

Displacement vectors 162 

Distance table 219 

Drop 103, 258 

Duality 145, 147 


Each 25, 36, 54, 55, 57, 60, 61, 62, 70, 75, 84, 85, 92, 95 
115, 135, 141, 149, 150, 160, 164, 173, 177, 184, 238 

Each rule 91, 139, 140, 151, 154, 239 

Empty arrays 114 

Enclose 11, 15, 16, 17, 19, 91, 93, 95, 111, 127, 160, 184, 
238 

Encode 169 

Enlist 5, 9, 39 

Execute 174, 176 

Existential quantifier 

Expand 71, 108, 149 


153 


Extreme values 155 
F 
Fill functions 114 


Fill item 24, 69, 107 
Find 48, 73 
First 21, 23, 37, 103, 111, 258 
Fitting non-linear functions 179 
Floating scalar rule 13, 24, 38 
Floating systems 12 
Format 39, 40 
Frequency distribution 56, 82 
Function composition 131, 182 
Function phase 2, 139 
Functions 
AD 153 
ADDFROM 212 
ADDROOT 212 
ALLNEAR 180 
ALLOC 214 
ANCIN 198 
ASK 177 
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Functions (continued) Functions (continued) 
CASE 184 REPORT 80 
CENTER 64 ROOT 209 
CHALL 248 ROOTL 210 
CHANGE 36 ROUTE 213 
COMPRESS _ 70, 72 SCH 47 
COS 178 SCOTCH 254 
CUSPRO 83 SEL 67 
CUTFROM 199 SENTENCE 95 
DIS 7 SHORTEN 254 
DISPLAY 1 SORTC 45 
DTB_ 73, 102 SPIRAL 142 
DTH 127 START_DAY 228 
ENLIST 136 STK_LAST_TRADE 86, 237 
FIND 73 STPATH 199 
FLUX 214 SUB 207, 255 
FRACTNL 174 SUBT 199 
FROM 212 SUM 133 
FROMDEC 246 SWAP 199 
FROOT 212 TDOWN 46 
FULNET 209 TIM_LAST_TRADE 87, 238 
GRAD 155 TODEC 246 
GT 206 TUP 46 
HTD 127 TYPE 108 
ID 217 UPG 215 
IF 69 UPRANK 38 
INDEX 102 VCAT 98 
INS 201 
ISIN 203 
ISW2 254 G 
JOIN 137 Grade-down 43 
LAST_TRADE 86, 237 Grade-up 43, 47, 50, 60, 93, 131, 206 
LENGTHEN 189, 254 Gradient 155 
LVA 216 Graphs 215, 217 
MAKENET 218 Gray codes 148 
MAKET 202 Grounded systems 12 
MATRIFY 38 Grouping items 5 
MIDPT 56, 155 
MNZ 216 H 
MONTH 14 
MSUB _ 213 Heterogeneity I 
NPV 84 Hexadecimal arithmetic 127 
ONES 99, 216 Hierarchical trees 195 
ORDINAL 31 
OUTFROM_ 209 | 
OUTFROML 210 Id 145 
PASCAL 64 empotency — 
PATH 134 Identity Functions 116 
PCENTFOR 82 Identity items ‘16, 212 
Incidence matrix 171 
PENCL 98 
Index 21, 66, 103 
PREC 217 Index of 29. 60 
PRODUCT 137 ner oo. 
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